Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
Underscore (talk | contribs) (Added Perl 6.) |
|||
| Line 640: | Line 640: | ||
$d->add($_) foreach qw(3 1 4 1 5 9); |
$d->add($_) foreach qw(3 1 4 1 5 9); |
||
print $d->avg, "\n";</lang> |
print $d->avg, "\n";</lang> |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|#21 "Seattle"}} |
|||
<lang perl6>sub mean (@a) { ([+] @a) / @a }</lang> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |
||