Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: fit to required behavior on empty input) |
(added php) |
||
Line 356: | Line 356: | ||
$d->add($_) foreach qw(3 1 4 1 5 9); |
$d->add($_) foreach qw(3 1 4 1 5 9); |
||
print $d->avg, "\n";</perl> |
print $d->avg, "\n";</perl> |
||
=={{header|PHP}}== |
|||
<php>$nums = array(3, 1, 4, 1, 5, 9); |
|||
if ($nums) |
|||
echo array_sum($nums) / count($nums), "\n"; |
|||
else |
|||
echo "0\n";</php> |
|||
=={{header|Pop11}}== |
=={{header|Pop11}}== |
||
Line 395: | Line 402: | ||
=={{header|Ruby}}== |
=={{header|Ruby}}== |
||
<ruby>nums = [3, 1, 4, 1, 5, 9] |
|||
nums.empty? ? 0 : nums.inject(:+) / Float(nums.size)</ruby> |
|||
=={{header|Scheme}}== |
=={{header|Scheme}}== |
||
<scheme>(define (mean l) |
|||
(if (null? l) |
|||
0 |
|||
(/ (apply + l) (length l))))</scheme> |
|||
> (mean (list 3 1 4 1 5 9)) |
> (mean (list 3 1 4 1 5 9)) |