Shortest common supersequence: Difference between revisions
m
→{{header|Perl 6}}: proper link to other task
SqrtNegInf (talk | contribs) (Added Perl 6 example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: proper link to other task) |
||
Line 264:
=={{header|Perl 6}}==
Using 'lcs' routine from [[Longest_common_subsequence#Perl_6
<lang perl6>sub lcs(Str $xstr, Str $ystr) { # longest common subsequence
return "" unless $xstr && $ystr;
| |||