Select Code to Download

sub hd_Ken {
    my ($diff, $bits, $count, $mask) = ($_[0] ^ $_[1], $_[2] || 8, 0);
...

    $count;
}

#!/usr/bin/env perl

...
   }
   return $count
}

$ pm_hamming.pl
Test results: 4 4 5 5 6 6 7 7
...
              Rate  hd_OP_64 hd_Ken_64
hd_OP_64   77282/s        --      -32%
hd_Ken_64 113551/s       47%        --