Levenshtein distance/Alignment: Difference between revisions
m
→{{header|Perl 6}}: useless space
(→{{header|Perl 6}}: style) |
m (→{{header|Perl 6}}: useless space) |
||
Line 71:
my @A;
@A[$_][ 0]<d s t> = $_, @s[1..$_].join, '-' x $_ for ^@s;
@A[ 0][$_]<d s t> = $_, '-' x $_, @t[1..$_].join
for 1 ..^ @s X 1..^ @t -> \i, \j {
| |||