数值计算

codeternity

回复 7# q1208c

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

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

回复 12# felix0608

{:3_189:}
   

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;

复制代码

练习一下