Averages/Root mean square: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 527:
→ 6.2048368229954285
</lang>
=={{header|Elena}}==
{{trans|C#}}
Line 646 ⟶ 647:
Answer (in F# Interactive window):
<pre>val res : float = 6.204836823</pre>
=={{header|Factor}}==▼
<lang factor>: root-mean-square ( seq -- mean )▼
[ [ sq ] map-sum ] [ length ] bi / sqrt ;</lang>▼
( scratchpad ) 10 [1,b] root-mean-square .▼
6.204836822995428▼
=={{header|Fantom}}==
Line 664 ⟶ 672:
}
}</lang>
▲=={{header|Factor}}==
▲<lang factor>: root-mean-square ( seq -- mean )
▲ [ [ sq ] map-sum ] [ length ] bi / sqrt ;</lang>
▲ ( scratchpad ) 10 [1,b] root-mean-square .
▲ 6.204836822995428
=={{header|Forth}}==
Line 898 ⟶ 899:
| if $length == 0 then null
else map(. * .) | add | sqrt / $length
end ;</lang>With this definition, the following program would compute the rms of each array in a file or stream of numeric arrays:<lang jq>rms</lang>
=={{header|Julia}}==
There are a variety of ways to do this via built-in functions in Julia, given an array <code>A = [1:10]</code> of values. The formula can be implemented directly as:
Line 1,024 ⟶ 1,026:
rms(L), numer; /* 6.204836822995429 */</lang>
=={{header|MAXScript}}==
<lang MAXScript>
Line 1,156 ⟶ 1,159:
Quadratic Mean: 6.20483682300
</pre>
=={{header|Objeck}}==
<lang objeck>bundle Default {
Line 1,270 ⟶ 1,274:
say rms(1..10);</lang>
=={{header|Perl 6}}==▼
{{works with|Rakudo|2015.12}}▼
<lang perl6>sub rms(*@nums) { sqrt [+](@nums X** 2) / @nums }▼
say rms 1..10;</lang>▼
Here's a slightly more concise version, albeit arguably less readable:▼
<lang perl6>sub rms { sqrt @_ R/ [+] @_ X** 2 }</lang>▼
=={{header|Phix}}==
Line 1,485 ⟶ 1,480:
(sqrt (/ (for/sum ([n nums]) (* n n)) (length nums))))
</lang>
(formerly Perl 6)
▲{{works with|Rakudo|2015.12}}
▲<lang perl6>sub rms(*@nums) { sqrt [+](@nums X** 2) / @nums }
▲say rms 1..10;</lang>
▲Here's a slightly more concise version, albeit arguably less readable:
▲<lang perl6>sub rms { sqrt @_ R/ [+] @_ X** 2 }</lang>
=={{header|REXX}}==
Line 1,581 ⟶ 1,586:
{{out}}
The root mean square is: 6.204837
=={{header|S-lang}}==
Line 1,653 ⟶ 1,657:
writeln(rms(numbers) digits 7);
end func;</lang>
=={{header|Shen}}==
{{works with|shen-scheme|0.17}}
Line 1,820 ⟶ 1,825:
6.2048368229954285
</pre>
=={{header|VBA}}==
| |||