面试题目

huwenhuo

100＊99＊98＊97.......
问题是想知道结果值中后面有几个0。
怎么算？

hitsubunnu

### 数值太大情况下会转为 科学计数 造成错误

1. 
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. use Math::BigInt;
   
7. my $re = eval join "*",(97..100);
   
8. my $big =reverse Math::BigInt->new($re);
   
9. $big =~ /^0+/;
   
10. 
    
11. print $+[0];
    
12. 
    

复制代码

[ 本帖最后由 hitsubunnu 于 2009-10-27 10:17 编辑 ]

dajun

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. my $count = 0;
   
6. my $i = 0;
   
7. my $j = 0;
   
8. my $ret;
   
9. my @data = (1..100);
   
10. 
    
11. while($i = pop @data){
    
12.     $j = pop @data || 1;
    
13.     $ret = $i * $j;
    
14.     next unless ($ret=~/(0+)$/);
    
15.     print $ret,"\n";
    
16.     $count += length $1;
    
17. }
    
18. 
    
19. print "-------------------\n$count\n";
    
20. 
    
21. 
    
22. 
    

复制代码

看来下面的讨论才发现这个有问题

[ 本帖最后由 dajun 于 2009-10-27 11:48 编辑 ]

DQP

2 + 9 + 10

dugu072

我这么想的，不知道会不会漏掉：
10 公约数 1， 2， 5， 10
因此， 1-100范围内，有机会增加0的可能有 2 * 10个，再加上最后一个 100 是增加的 2个0而非1个，因此，+1
总共 21 个！

hitsubunnu

正确答案为 24个

93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000

答案来自于

http://www.wolframalpha.com/input/?i=100!

dugu072_cu

突然想起来还有 50去掉 0后，还有一个 ×5，因此还可以多一个0，但这也直到 22 个，还有 2 个0，怎么也想不出来。。。

cxfcxf

(1-9)2*(1-9)5 顺序
10
100
这么算是22个..

用perl去算..直接给了一串..
9.33262154439441e+157

要是给整体的话 用0的正则到可以做出来的...

dajun

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $count = 0;
   
5. my $i = 0;
   
6. my $j = 0;
   
7. my $ret;
   
8. my @data = (1..100);
   
9. my @data2 = ();
   
10. 
    
11. 
    
12. while($i = pop @data){
    
13.     $j = pop @data || 1;
    
14.     $ret = $i * $j;
    
15.     unshift @data, $ret if ($ret =~/[24568]$/); #+ 乘法后可能产生0结尾的数
    
16.     next unless ($ret=~/(.*)(0+)$/);
    
17.     #print $ret,"\n";
    
18.     unshift @data, $1;                       #+ 去掉结尾的0
    
19.     $count += length $2;
    
20.     last unless (grep(/5$/, @data));  #+ 没5结尾的就不能再出现尾0了,不过办法太..., 而且好像也不准确
    
21. }
    
22. 
    
23. print "-------------------\n$count\n";
    
24. 
    
25. 
    
26. 
    

复制代码

% perl count.pl
-------------------
24




这个计算100!还算正确, 但是1000!就错了, 1000! 大概是249个0

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $count = 0;
   
5. my $i = 0;
   
6. my $j = 0;
   
7. my $ret;
   
8. my $max = $ARGV[0] || 100;
   
9. my @data = (1..$max);
   
10. 
    
11. do {
    
12.     $i = shift @data || 1;
    
13.     $j = shift @data || 1;   # 这两处换成pop竟然会得到不同的结果 -_-!, 难道是pop时候乘机太大的原因?
    
14. 
    
15.     $ret = $i * $j;
    
16.     push @data, $ret if ($ret =~/[024568]$/);
    
17.     count(\@data);              # removed all tail 0
    
18. }while(grep /5$/, @data);
    
19. 
    
20. sub count {
    
21.     my $array = shift;
    
22.     my $idx = 0;
    
23.     for ($idx = 0; $idx < scalar @$array; $idx++) {
    
24.         if ($array->[$idx] =~/(.*)(0+)$/){
    
25.             $array->[$idx] = $1;
    
26.             $count += length $2;
    
27.         }
    
28.     }
    
29. }
    
30. 
    
31. print "-------------------\n$count\n";
    
32. 
    

复制代码

/t % perl c2.pl 100
-------------------
24
/t % perl c2.pl 1000
-------------------
249





期待高手给出漂亮代码

[ 本帖最后由 dajun 于 2009-10-27 12:59 编辑 ]

linuxty

#!/usr/bin/perl
use strict;

my $n=$ARGV[0];
my $num=0;
for ( 1..$n ) {
        my $tmp=$_;
        while ( $tmp%5==0 ) {
                $num++;
                $tmp/=5;
        }
}
print $num;