Rosetta Code

Averages/Root mean square: Difference between revisions

Page Discussion

Averages/Root mean square (view source)

Revision as of 19:21, 10 March 2010

42 bytes removed ,  14 years ago
→‎{{header|OCaml}}
(rms in ocaml)
Line 75:
 
<lang ocaml>let rms a = let n = Array.length a in
let rec gf s x = function 0 -> s | i -> g (s +. a.(i-1)x*.a.(i-1)) (i-1)x in
sqrt ((gArray.fold_left f 0.0 n)a /. (float_of_int n));;
 
rms (Array.init 10 (functionfun i -> (float_of_int (i+1))));;
(* 6.2048368229954285 *)</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/140126"