Longest common suffix: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) m (→{{header|C++}}: fix typo) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: small simplification) |
||
Line 1,616: | Line 1,616: | ||
sub lcs { |
sub lcs { |
||
for (0..$#_) { $_[$_] = |
for (0..$#_) { $_[$_] = reverse $_[$_] } |
||
join '', reverse split '', (join("\0", @_) =~ /^ ([^\0]*) [^\0]* (?:\0 \1 [^\0]*)* $/sx)[0]; |
join '', reverse split '', (join("\0", @_) =~ /^ ([^\0]*) [^\0]* (?:\0 \1 [^\0]*)* $/sx)[0]; |
||
} |
} |