作者littleshan (我要加入剑道社!)
看板perl
标题Re: [问题] 一个很小的程式~~
时间Sat Oct 2 02:59:35 2004
※ 引述《krist99 (只爱Calvin Klein Ｉ》之铭言：
: 请问要怎麽把1 3 5 7 9加起来~~
: 我想好几个小时~~~想不出来~~
: 请各位大大开导~~
: 不一定要po程式码~~
: 跟我讲方法也行~~
: 感恩~~
: sub total{
: foreach(@fred){
: @fred+=1;
你可以解释一下为什麽你要这样写吗？
: }
: }
sub total{
my $sum;
$sum += $_ foreach (@_);
return $sum;
}
: my @fred=qw/1 3 5 7 9/;
: my $fred_total=&total(@fred);
: print"\@fred的总和是$fred_total\n";
--
use BigInt
':constant';
eval{
local $SIG{ALRM}=
sub{
die "alarm\n"};
alarm 10;
foreach (
1..
2**
1024){}
alarm 0;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.244.211