Re: [問題] 一個很小的程式~~

[littleshan (我要加入劍道社!)]

※ 引述《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