Help for this page

Select Code to Download


  1. or download this
    sub hd_Ken {
        my ($diff, $bits, $count, $mask) = ($_[0] ^ $_[1], $_[2] || 8, 0);
    ...
    
        $count;
    }
    
  2. or download this
    #!/usr/bin/env perl
    
    ...
       }
       return $count
    }
    
  3. or download this
    $ 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%        --