Help for this page

Select Code to Download


  1. or download this
    use List::Util qw[ reduce ];
sub xform{
...
    $word =~ tr[ACGT][\x00\x01\x02\x03];
    reduce{ ($a << 2) + $b } 0, unpack 'C*', $word;
}
  2. or download this
    package OO::Index;

...
    return $value;
}
1;
  3. or download this
    #! perl -sw
use strict;
...
     s/iter   oo hash
oo     35.3   -- -58%
hash   15.0 136%   --