Longest common prefix: Difference between revisions
Perl 6 entry
(→{{header|Python}}: Using an error?) |
(Perl 6 entry) |
||
Line 43:
lcp 'prefix',:'suffix'
</lang>
==Perl 6==
<lang perl6>multi lcp { '' }
multi lcp(Str $s) { $s }
multi lcp(*@s) {
my $candidate = min :by(*.chars), @s;
until [&&] map { $_ ~~ /^$candidate/ }, @s {
$candidate.=chop;
}
$candidate;
}
use Test;
plan 7;
is lcp("interspecies","interstelar","interstate"), "inters";
is lcp("throne","throne"), "throne";
is lcp("throne","dungeon"), '';
is lcp("cheese"), "cheese";
is lcp(''), '';
is lcp(), '';
is lcp("prefix","suffix"), '';</lang>
{{out}}
<pre>1..7
ok 1 -
ok 2 -
ok 3 -
ok 4 -
ok 5 -
ok 6 -
ok 7 - </pre>
=={{header|Python}}==
| |||