Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Perl Longest Common Prefix
# returns longest common prefix of a list of strings
sub lcp
my $match = shift;
substr($match, (($match ^ $_) =~ /^\0*/, $+[0])) = '' for @_;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment