Averages/Root mean square: Difference between revisions

Content added Content deleted

Inline

@@ Line 84: / Line 84: @@
 =={{header|OCaml}}==
-<lang ocaml>let rms a = sqrt (Array.fold_left (fun s x -> s +. x*.x) 0.0 a /. float_of_int (Array.length 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))
+;;
-rms (Array.init 10 (fun i -> float_of_int (i+1)));;
+rms (Array.init 10 (fun i -> float_of_int (i+1))) ;;
 (* 6.2048368229954285 *)</lang>