Re: [問題] 新手問個 perl平均值求法

[gugod (啊)]

※ 引述《sing10i14 (Lin)》之銘言：
: https://i.imgur.com/wdZSMEO.jpg
: 想問各位改如何求出平均值

平均值 (mean) 就是將所有數字加總 (sum) 後，除以數字個數。

    my @nums = ... # 數字們

    my $mean = sum(@nums) / @nums;

其中 sum 函式的定義可為：

    sub sum { (@_ == 0) ? 0 : (pop(@_) + sum(@_)) }

或：

    sub sum { length( join "", map { 1 x $_ } @_ ) }

或：

    sub sum { eval join "+", @_ ; }

或：

    sub sum {
        my $s = 0;
        $s += pop while @_;
        return $s;
    }

這幾種定義各有各的問題，另外還有 List::Util 模組中的 sum 及 sum0 兩種口味可供參考。

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 183.76.9.229 (日本)
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1573286113.A.D5A.html
→ sing10i14: 謝謝你 我試試