Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(Add example for blz) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: removed example which used non-existent module) |
||
Line 2,406: | Line 2,406: | ||
print avg(qw(3 1 4 1 5 9)), "\n";</lang> |
print avg(qw(3 1 4 1 5 9)), "\n";</lang> |
||
{{libheader|Data::Average}} |
|||
With module Data::Average. |
|||
(For zero-length arrays, returns the empty list.) |
|||
<lang perl>use Data::Average; |
|||
my $d = Data::Average->new; |
|||
$d->add($_) foreach qw(3 1 4 1 5 9); |
|||
print $d->avg, "\n";</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |