Averages/Root mean square: Difference between revisions

prefer X** 2 over map * ** 2
(prefer X** 2 over map * ** 2)
Line 374:
 
=={{header|Perl 6}}==
<lang perl6>sub rms(*@nums) {
sqrt( sqrt( ([+] (map *@nums X** 2, @nums)) / +@nums.elems );
 
sqrt( ([+] (map * ** 2, @nums)) / @nums.elems );
 
}
 
Anonymous user