Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
__END__
C:\test>888162 -N=3e6
Took: 5.966000 seconds
  2. or download this
    my $n_es = unpack '%32b*', $hash_es->{ $string_es };
my $n_en = unpack '%32b*', $hash_en->{ $string_en };
  3. or download this
    my $intersections = unpack '%32b*',  
    $hash_es->{ $string_es } &  $hash_es->{ $string_es };
  4. or download this
    #! perl -slw
use strict;
...
C:\test>888162 -N=3e6
Took: 0.001901 seconds