数值计算

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数组中，不知道该怎么做比较好。

huang6894

定义一个求数组平均的子函数，每读到一个元素push到新的数组，知道999为止

codeternity

回复 2# huang6894

怎么能每999个元素求一次平均呢
   

huang6894

回复 3# codeternity

一个最笨的解决方法

1. #!/usr/bin/perl -w
   
2. @orig=(2,2,3,3,2,1,3,3,3);
   
3. sub mean(){
   
4.         my @all = @_;
   
5.         my $num = scalar @all;
   
6.         my $total = 0;
   
7.         for my $i (@all){
   
8.                 $total += $i if defined $i;
   
9.         }
   
10.         my $mean  = $total/$num;
    
11.         return $mean;
    
12. }
    
13. my $n = 3;
    
14. while($n <= ($#orig + 1)){
    
15.         my @tem;
    
16.         for ($i=$n-3;$i<=$n-1;$i++){
    
17.                 push @tem,$orig[$i];
    
18.         }
    
19.         my $result = &mean(@tem);
    
20.         $n += 3;
    
21.         print $result;
    
22. }
    

复制代码

stanley_tam

zhe yang xing bu xing{:3_193:}

1. #!perl
   
2. use strict;
   
3. use List::Util qw{ sum };
   
4. 
   
5. my @num=(20,30,30....);
   
6. 
   
7. my $head = 0;
   
8. my $tail = 0;
   
9. my @mean = ();
   
10. 
    
11. while (1) {
    
12.     $tail = $head + 998;
    
13.     $tail = $#num if $tail >= $#num;
    
14. 
    
15.     my @slice = @num[$head .. $tail];
    
16.     push @mean, (sum @slice) / ($#slice + 1);
    
17. 
    
18.     $head = $tail + 1;
    
19.     last if $tail == $#num;
    
20. }
    
21. 
    
22. __END__

复制代码

afukada

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

复制代码

q1208c

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

codeternity

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

   

codeternity

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

   

codeternity

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