Averages/Root mean square: Difference between revisions

Content added Content deleted

Inline

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