Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(→{{header|R}}: Added REBOL example.) |
(Added Oz.) |
||
Line 647: | Line 647: | ||
disp(omean([1,2,3]));</lang> |
disp(omean([1,2,3]));</lang> |
||
=={{header|Oz}}== |
|||
A version working on floats: |
|||
<lang oz>declare |
|||
fun {Mean Xs} |
|||
{FoldL Xs Number.'+' 0.0} / {Int.toFloat {Length Xs}} |
|||
end |
|||
in |
|||
{Show {Mean [3. 1. 4. 1. 5. 9.]}}</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |