Anonymous user
Shortest common supersequence: Difference between revisions
m
→{{header|Perl}}
No edit summary |
|||
Line 73:
return '' unless length($u) and length($v);
my $longest = '';
for my $first ( 0..length($u)-
my $char = substr $u, $first, 1;
my $i = index( $v, $char );
| |||