Averages/Root mean square: Difference between revisions
Content added Content deleted
m (→{{header|OCaml}}: indentation) |
No edit summary |
||
Line 120: | Line 120: | ||
my @ints = (1..10); |
my @ints = (1..10); |
||
print rms(@ints), "\n";</lang> |
print rms(@ints), "\n";</lang> |
||
=={{header|Perl 6}}== |
|||
<lang perl6>sub rms(@nums) { |
|||
sqrt( ([+] (map * ** 2, @nums)) / @nums.elems ); |
|||
} |
|||
say rms(1..10);</lang> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |