※ 引述《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 两种口味可供参考。