Averages/Arithmetic mean: Difference between revisions
Content deleted Content added
PatGarrett (talk | contribs) m →{{header|360 Assembly}}: Superfluous blanks suppressed |
|||
Line 2,103: | Line 2,103: | ||
<lang perl6>sub mean (@a) { ([+] @a) / (@a || 1) }</lang> |
<lang perl6>sub mean (@a) { ([+] @a) / (@a || 1) }</lang> |
||
=={{header|Phix}}== |
|||
<lang Phix>function mean(sequence s) |
|||
if length(s)=0 then return 0 end if |
|||
return sum(s)/length(s) |
|||
end function |
|||
? mean({1.0, 2.0, 5.0, -5.0, 9.5, 3.14159})</lang> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |