Rosetta Code

Averages/Arithmetic mean: Difference between revisions

Page Discussion

Averages/Arithmetic mean (view source)

Revision as of 20:13, 15 July 2018

229 bytes removed ,  5 years ago
m
→‎{{header|Perl}}: removed example which used non-existent module
(Add example for blz)
m (→‎{{header|Perl}}: removed example which used non-existent module)
Line 2,406:
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}}==
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/50393"