Anonymous user
Averages/Root mean square: Difference between revisions
added perl
(added perl) |
|||
Line 57:
print(rms{1, 2, 3, 4, 5, 6, 7, 8, 9, 10})</lang>
=={{header|Perl}}==
<lang perl>sub rms
{
my $r = 0;
$r += $_**2 for @_;
return sqrt( $r/@_ );
}
my @ints = (1..10);
print rms(@ints), "\n";</lang>
=={{header|PL/I}}==
|