use strict;
use warnings;
use Benchmark qw(:all);

sub compare_rg0now {
  return 0 unless length $_[0] == length $_[1];
  return 1 if $_[0] eq $_[1];
  my $diff = 0;
  my @l1 = split //, $_[0];
  my @l2 = split //, $_[1];
  for(my $i = 0; $i < scalar @l1; $i++){
    $diff++ if $l1[$i] ne $l2[$i];
    return 0 if $diff > 1;
  }
  return 1;
}

sub compare_blazar {
    (my $xor=$_[0]^$_[1]) =~ tr/\0//d;
    length $xor < 2;
}

sub compare_BrowserUk {
    return ( length $_[0] == length $_[1] )
        && ( length( $_[0] ) - 1 <= ( $_[0] ^ $_[1] ) =~ tr[\0][\0] )
}

sub compare_ikegami {
  return unless length $_[0] == length $_[1];

  # Omit if expecting differences almost all the time.
  return 1 if $_[0] eq $_[1];

  my $limit = 1;

  foreach (split('', $_[0]^$_[1])) {
     next unless ord;
     return 0 unless $limit--;
   }

  return 1;
}

sub compare_japhy{
  (($_[0] ^ $_[1]) =~ tr/\0//c) < 2;
}

sub compare_Not_a_Number {
   return 0 unless length $_[0] == length $_[1];
   my $diff = 0;
   for ( 0 .. length $_[0] ) {
      $diff++ if substr( $_[0], $_, 1 ) ne substr( $_[1], $_, 1 );
      return 0 if $diff > 1;
    }
   return 1;
}

my @data = (
[ qw( üzletágak üzletiség ) ],
[ qw( üzemelhet üzemelget ) ],
[ qw( üvölthető üvöltetés ) ],
[ qw( üvegházak üveggyári ) ],
[ qw( üvegesség üvegesedő ) ],
[ qw( ütőkártya üttethető ) ],
[ qw( ütemezhet ütemezget ) ],
[ qw( üstöllést ürüszelet ) ],
[ qw( üresíthet üresített ) ],
[ qw( üregelhet üregelget ) ],
[ qw( ülésezett ültetvény ) ],
[ qw( ülepíthet ülepített ) ],
[ qw( üldözhető üldözgető ) ],
[ qw( ügynökölő ügynökölt ) ],
[ qw( ügyesedés ügyesedik ) ],
[ qw( üdültetés üdülgetés ) ],
[ qw( ücsörögés ücsörgött ) ],
[ qw( úzvölgyei útvonalak ) ],
[ qw( útjavítás útitársak ) ],
[ qw( úthálózat útelzárás ) ],
[ qw( úszógatya úszásiság ) ],
[ qw( úszkálgat úrvacsora ) ],
[ qw( újságírói újságírás ) ],
[ qw( újsziváci újszfalui ) ],
[ qw( újrázandó újraírhat ) ],
[ qw( újperinti újpaulisi ) ],
[ qw( újrázandó újraírhat ) ],
[ qw( újperinti újpaulisi ) ],
[ qw( újlacskai újkígyósi ) ],
[ qw( újféleség újegyházi ) ],
[ qw( újbezdáni újbaresdi ) ],
[ qw( öveztetés övezgetés ) ],
[ qw( ötödszöri ötödnapra ) ],
[ qw( ötvözendő ötvenórai ) ],
[ qw( ötvenfelé ötvenezer ) ],
[ qw( ötszöghez ötrubeles ) ],
[ qw( ötfokúság ötezredik ) ],
[ qw( ösztökélő ösztökélt ) ],
[ qw( összjáték összhatás ) ],
[ qw( összevont összevert ) ],
[ qw( összerázó összenőve ) ],
[ qw( összenője összenődd ) ],
[ qw( összegező összefont ) ],
[ qw( örömtelen örömködés ) ],
[ qw( örököltet örökölhet ) ],
[ qw( örökvirág örökmozgó ) ],
[ qw( örökbecsű örvénylés ) ],
[ qw( örménység örményesi ) ],
[ qw( öregesség öregember ) ],
[ qw( öregbéres öregbedés ) ],
[ qw( ördögszem ördögkúti ) ],
[ qw( önállósít önállóság ) ],
   );


cmpthese(-3, {
              'rg0now'       => sub {for(@data) {compare_rg0now(@$_)} 
+      },
              'blazar'       => sub {for(@data) {compare_blazar(@$_)} 
+      },
              'BrowserUk'    => sub {for(@data) {compare_BrowserUk(@$_
+)}    },
              'ikegami'      => sub {for(@data) {compare_ikegami(@$_)}
+      },
              'japhy'        => sub {for(@data) {compare_japhy(@$_)}  
+      },
              'Not_a_Number' => sub {for(@data) {compare_Not_a_Number(
+@$_)} },
});
[download]