Perl风格：使用哈希作为集合

1998年1月1日，作者：Tom Christiansen

• 考虑找到两个唯一数组@a和@b的并集和交集

      foreach $e (@a) { $union{$e} = 1 }
      foreach $e (@b) {
          if ( $union{$e} ) { $isect{$e} = 1 }
          $union{$e} = 1;
      }
      @union = keys %union;
      @isect = keys %isect;
  

• 这可以更习惯性地写成

      foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ }
      @union = keys %union;
      @isect = keys %isect;
  

跳转到 第一次使用哈希
返回到 拥抱哈希
返回到 索引

版权 © 1998, Tom Christiansen 版权所有。