Re: [問題] 新手問個 perl平均值求法
: 想問各位改如何求出平均值
平均值 (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
→
11/09 23:26,
5年前
, 1F
11/09 23:26, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
