Select Code to Download

# leading common substring
# returns length of LCS
# requires Perl 5.6+
...
  ($_[0] ^ $_[1]) =~ /\0*/;
  return $+[0];
}

# leading common substring
# returns length of LCS
# requires Perl 5.6+
...
  ($_[0] ^ $_[1]) =~ /(\0*)/;
  return length $1;
}