Averages/Root mean square: Difference between revisions

→‎{{header|OCaml}}: one-liner ;-)
(→‎{{header|OCaml}}: one-liner ;-))
Line 74:
=={{header|OCaml}}==
 
<lang ocaml>let rms a = letsqrt n(Array.fold_left =(fun s x -> s +. x*.x) 0.0 a /. float_of_int (Array.length a in));;
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)));;
506

edits