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}}==
Anonymous user