作者gugod (啊)
看板Perl
标题Re: [问题] 新手问个 perl平均值求法
时间Sat Nov 9 15:55:08 2019
※ 引述《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://webptt.com/cn.aspx?n=bbs/Perl/M.1573286113.A.D5A.html
1F：→ sing10i14: 谢谢你 我试试 11/09 23:26