哈希的时间效率

饭饭小鱼儿

for(my $i=1;$i<=60000;$i++){
   foreach my $key(keys %statis){

      if($statis{$key}==$i){

                 $flag++;
     }
}
这段代码的时间效率很低。怎么回事呢？。。。是因为数据量大？还是因为哈希在通过值（而不是键）比较的效率低？

zhlong8

总共循环的次数等于 60000 乘以 %statis 里的元素个数，即使只有500个元素也会循环3000万次。Perl 一秒最多也就跑几百万个字节码，你自己用 Benchmark 估算下一秒能循环几次

jason680

回复 1# 饭饭小鱼儿

would you let's know what you want?

or try this one

foreach my $val(values %statis){
    if(1 <= $val && $val <= 60000){
        $flag++;
    }
}
   

pitonas

如果values是整数

1. my $flag;
   
2. for my $val ( values %statis ) {
   
3.     if ( $val >= 1 and $val <= 60000 ) {
   
4.         $flag++;
   
5.     }
   
6. }

复制代码

pitonas

或者, 也许你想要的代码就在这里

1. my %statis = qw/a 1 b 1 c 2 d 2 e 3 f 5 g 9 h 12/;
   
2. my ( $flag, %invstatis );
   
3. 
   
4. $invstatis{$_}++ for values %statis;
   
5. 
   
6. for my $i ( 1 .. 6 ) {
   
7.     $flag += $invstatis{$i} if $invstatis{$i};
   
8. }
   
9. 
   
10. print $flag;

复制代码

1. my %statis = qw/a 1 b 1.00 c 2 d 2.0 e 3 f 5 g 9 h 12 i 0/;
   
2. my ( $flag, %invstatis );
   
3. 
   
4. $invstatis{ $_ + 0 }++ for values %statis;
   
5. 
   
6. for my $i ( 1 .. 6 ) {
   
7.     $flag += $invstatis{$i} if $invstatis{$i};
   
8. }
   
9. 
   
10. print $flag;

复制代码

104359176

内外循环写反了。

pitonas

LZ 比较下效率
A:

1. for ( my $i = 1 ; $i <= 60000 ; $i++ ) {
   
2.     foreach my $key ( keys %statis ) {
   
3.         if ( $statis{$key} == $i ) {
   
4.             $flag++;
   
5.         }
   
6.     }
   
7. }

复制代码

B: 如果values是整数

1. for my $val ( values %statis ) {
   
2.     if ( 1 <= $val && $val <= 60000 ) {
   
3.         $flag++;
   
4.     }
   
5. }

复制代码

C: 如果values不是整数

1. for my $val ( values %statis ) {
   
2.     next if $val != int $val;
   
3.     if ( 1 <= $val and $val <= 60000 ) {
   
4.         $flag++;
   
5.     }
   
6. }

复制代码