※ 引述《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 兩種口味可供參考。