数值计算

codeternity

各位亲，现在有一个计算平均值的问题，有一个数组
比如这个@orig=(1,2,3,3,2,1,3,3,3)，想计算这个数组中每三个元素的平均值，结果输出到@end，即结果应该为@end=(2,2,3)

而我现在有一个49950个元素的数组
@num=(20,30,30....)
这个数组里有49950个元素，现在想从前往后依次计算下每999个元素的平均值，这样就会产生50个平均值，然后输出到@mean数组中，不知道该怎么做比较好。

dav_

1. #!/usr/bin/perl
   
2. use v5.18.2;
   
3. 
   
4. my @mean;
   
5. while(<DATA>){
   
6.         state ($num, $total);
   
7.         $total += $_;
   
8.         $num++;
   
9.         if($num == 999) {
   
10.                 push @mean, $total / 999;
    
11.                 $num = 0;
    
12.                 $total = 0;
    
13.         }
    
14. }
    
15. say $_ for @mean;

复制代码

练习一下

codeternity

回复 12# felix0608

{:3_189:}
   

felix0608

1. perl  -le  '@a=map{$_ *= 10;}(2..49951);for($i=0;$i<@a/999;$i++){$sum=0;$sum+=$_ for@a[$i*999 ..(($i+1)*999-1)];$out[$i]=$sum/999};print $_ for@out;'

复制代码

回复 1# codeternity


   

codeternity

回复 7# q1208c

我试了试stanley_tam的方法，可以，行得通
   

codeternity

回复 6# afukada
哦！！！又是一行代码，佩服！

   

codeternity

回复 5# stanley_tam
这样子是可以的，多谢了，学习了……

   

codeternity

回复 4# huang6894
大侠，这个结果是不是有太对呢……

   

q1208c

只能用 shift, 否则会 OOM 的. 你的数组太大了.

afukada

1. @mean=map{eval(join("+,",@num[(50*$_)..(50*$_+998)]))/999}(0..49)

复制代码