6 lines
123 B
Perl
6 lines
123 B
Perl
use Math::StdDev;
|
|
$d=new Math::StdDev;
|
|
foreach my $v ( 2,4,4,4,5,5,7,9 ) {
|
|
$d->Update($v);
|
|
print $d->variance(),"\n"
|
|
}
|