实验证明perl没有java，c快，不信看下面

wtuter

9,91
1
20000000

找出1到20000000间能被9，91整除的数的总个数

java和c用了不到1000ms，perl用了
real    0m8.706s
user    0m6.993s
sys     0m0.004s

mingxw

算法啊，算法

昭襄王

是这样吗？

1. $count = 0 ;
   
2. for (1..20000000){
   
3.         $count++ if ($_ % 9 == 0 && $_ % 91 == 0) ;
   
4. }
   
5. print $count."\n" ;

复制代码

24420

real    0m3.324s
user    0m3.320s
sys     0m0.000s

conn2011

$count = int(20000000/(9*91));    {:3_203:}

昭襄王

$count = 20000000%(9*91);
conn2011 发表于 2011-04-02 14:29

    你这是特例，要是9和90就不能这样了

1. 
   
2. #! /usr/bin/perl
   
3. ($count,$j,$k) = (0,9,91) ;
   
4. ($k,$j) = ($j,$k) if $k < $j ;
   
5. $k = $k*$j if $k%$j != 0 ;
   
6. for (1..20000000){
   
7.         $_ % $k == 0 && $count++ ;
   
8. }
   
9. print $count."\n" ;

复制代码

感觉快了一些
24420

real    0m2.858s
user    0m2.856s
sys     0m0.000s

conn2011

回复 5# 昭襄王


    玩笑而已，但这确实是和算法有很大关系，如果你是实实在在的去循环个2000w次去运行几个命令行的话，怎么都快不了的

yinyuemi

1. $count = 0 ;
   
2. $x = 0;
   
3. while ($count<=20000000){
   
4.        
   
5.                 $count+=9*91 ;
   
6.                 $x+=1;       
   
7. }
   
8. $x-=1;
   
9. print $x."\n" ;
   

复制代码

1. time perl count.perl
   
2. 24420
   
3. 
   
4. real    0m0.010s
   
5. user    0m0.004s
   
6. sys     0m0.006s
   

复制代码

zhlong8

慢点就慢点，这种问题单写的时间 C 都比 Perl 快，至少不用写 $ 了

昭襄王

回复 7# yinyuemi


    大大快了！
把计算放在外面会更快吗？

1. ($x,$count,$j,$k) = (0,0,9,91) ;
   
2. ($k,$j) = ($j,$k) if $k < $j ;
   
3. $k = $k*$j if $k%$j != 0 ;
   
4. while ($count<=20000000){
   
5.         
   
6.                 $count+=$k ;
   
7.                 $x+=1;        
   
8. }
   
9. $x-=1;
   
10. print $x."\n" ;

复制代码

24420

real    0m0.013s
user    0m0.008s
sys     0m0.000s

yinyuemi

回复 9# 昭襄王


    测试了下，差别不大