Averages/Arithmetic mean: Difference between revisions
m
→{{header|Perl}}: Added an optional semicolon
Underscore (talk | contribs) (→{{header|Perl}}: General cleanup.) |
Underscore (talk | contribs) m (→{{header|Perl}}: Added an optional semicolon) |
||
Line 281:
my $d = Data::Average->new;
$d->add($_) foreach qw(3 1 4 1 5 9);
print $d->avg, "\n";</perl>
=={{header|Pop11}}==
| |||