Averages/Root mean square: Difference between revisions
rms in ocaml
(Added Clojure.) |
(rms in ocaml) |
||
Line 71:
print(rms{1, 2, 3, 4, 5, 6, 7, 8, 9, 10})</lang>
=={{header|OCaml}}==
<lang ocaml>let rms a = let n = Array.length a in
let rec g s = function 0 -> s | i -> g (s +. a.(i-1)*.a.(i-1)) (i-1) in
sqrt ((g 0.0 n) /. (float_of_int n));;
rms (Array.init 10 (function i -> (float_of_int (i+1))));;
(* 6.2048368229954285 *)</lang>
=={{header|Oz}}==
| |||