Standard Deviation – Perl Script
When you need to be more accurate than average, you need standard deviation bro…
#!/usr/bin/perl
use strict;
print standard_deviation(1,2,3,4,5,6,7,8,9,10)."\n";
sub standard_deviation {
my(@numbers) = @_;
#Prevent division by 0 error in case you get junk data
return undef unless(scalar(@numbers));
#… Read the rest