PERL 中如何求元素的期望和方差
答案:2 悬赏:50 手机版
解决时间 2021-03-20 16:38
- 提问者网友：寂寞撕碎了回忆
- 2021-03-19 23:01
PERL 中如何求元素的期望和方差
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-03-20 00:31
while () {
chomp;
@arr = split(" ", $_);
next if $#arr < 0;
print "average ", aver(@arr), "
";
print "variance ", var(@arr), "
";
}
sub aver{
my $arr = shift;
my $s = 0;
grep {$s += $_}@$arr;
return $s/@$arr;
}
sub var {
my $arr = shift;
my $v = aver($arr);
my $d = 0;
grep {$d += ($_-$v)**2;}@$arr;
return $d;
}
__DATA__
1 2 3 4 5 6 7 8 9
3 4 5 6 7 8 9 2 1
chomp;
@arr = split(" ", $_);
next if $#arr < 0;
print "average ", aver(@arr), "
";
print "variance ", var(@arr), "
";
}
sub aver{
my $arr = shift;
my $s = 0;
grep {$s += $_}@$arr;
return $s/@$arr;
}
sub var {
my $arr = shift;
my $v = aver($arr);
my $d = 0;
grep {$d += ($_-$v)**2;}@$arr;
return $d;
}
__DATA__
1 2 3 4 5 6 7 8 9
3 4 5 6 7 8 9 2 1
全部回答
- 1楼网友：痴妹与他
- 2021-03-20 00:37
引用atmystate的回答：
while () { chomp; @arr = split(" ", $_); next if $#arr < 0; print "average ", aver(\@arr), "\n"; print "variance ", var(\@arr), "\n";}sub aver{ my $arr = shift; my $s = 0; grep {$s += $_}@$arr; return $s/@$arr;}sub var { my $arr = shift; my $v = aver($arr); my $d = 0; grep {$d += ($_-$v)**2;}@$arr; return $d;}__DATA__1 2 3 4 5 6 7 8 93 4 5 6 7 8 9 2 1方差少除了个N
while () { chomp; @arr = split(" ", $_); next if $#arr < 0; print "average ", aver(\@arr), "\n"; print "variance ", var(\@arr), "\n";}sub aver{ my $arr = shift; my $s = 0; grep {$s += $_}@$arr; return $s/@$arr;}sub var { my $arr = shift; my $v = aver($arr); my $d = 0; grep {$d += ($_-$v)**2;}@$arr; return $d;}__DATA__1 2 3 4 5 6 7 8 93 4 5 6 7 8 9 2 1方差少除了个N
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯