Averages/Arithmetic mean: Difference between revisions

added php
(→‎{{header|Haskell}}: fit to required behavior on empty input)
(added php)
Line 356:
$d->add($_) foreach qw(3 1 4 1 5 9);
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}}==
Line 395 ⟶ 402:
 
=={{header|Ruby}}==
<ruby>nums = [3, 1, 4, 1, 5, 9]
nums.empty? ? 0 : nums.inject(:+) / Float(nums.size)</ruby>
 
=={{header|Scheme}}==
<scheme>(define (mean l)
(if (null? l)
0
(/ (apply + l) (length l))))</scheme>
 
> (mean (list 3 1 4 1 5 9))
Anonymous user