Averages/Root mean square: Difference between revisions
→{{header|Oforth}}
(→{{header|Emacs Lisp}}: use a range producer instead of typing it out) |
|||
Line 844:
rms (Array.init 10 (fun i -> float_of_int (i+1))) ;;
(* 6.2048368229954285 *)</lang>
=={{header|Oforth}}==
<lang Oforth>10 seq map(#sq) sum 10.0 / sqrt println</lang>
{{out}}
<pre>
6.20483682299543
</pre>
=={{header|ooRexx}}==
<lang ooRexx>call testAverage .array~of(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
|