Averages/Root mean square: Difference between revisions
Content added Content deleted
(→{{header|OCaml}}: one-liner ;-)) |
|||
| Line 74: | Line 74: | ||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
||
<lang ocaml>let rms a = |
<lang ocaml>let rms a = sqrt (Array.fold_left (fun s x -> s +. x*.x) 0.0 a /. float_of_int (Array.length a));; |
||
let f s x = s +. x*.x in |
|||
sqrt (Array.fold_left f 0.0 a /. float_of_int n);; |
|||
rms (Array.init 10 (fun i -> float_of_int (i+1)));; |
rms (Array.init 10 (fun i -> float_of_int (i+1)));; |
||