Anonymous user
Averages/Pythagorean means: Difference between revisions
m
→{{header|OCaml}}
m (→{{header|OCaml}}: indentation) |
|||
Line 202:
;;</lang>
Sample output:
<lang ocaml>means (Array.init 10 (function i -> (float_of_int (i+1)))) ;;
(* (5.5, 4.5287286881167654, 3.4141715214740551) *)</lang>
Another implementation using <code>Array.fold_left</code> instead of a '''for''' loop:
<lang ocaml>let means v =
let (a, b, c) =
Array.fold_left
|