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