Averages/Arithmetic mean: Difference between revisions
→{{header|Perl}}: General cleanup.
No edit summary |
Underscore (talk | contribs) (→{{header|Perl}}: General cleanup.) |
||
Line 266:
=={{header|Perl}}==
@_
my $sum = 0;
$sum += $_ foreach
▲ }
{{libheader|Data::Average}}
With module Data::Average.
(For zero-length
my $d = Data::Average->new;▼
$d->add($_) foreach (qw(3 1 4 1 5 9));▼
print $d->avg."\n"▼
=={{header|Pop11}}==
|