Levenshtein distance/Alignment: Difference between revisions
m
→{{header|Perl 6}}: it doesn't output what it says it does
(→{{header|Tcl}}: Added zkl) |
m (→{{header|Perl 6}}: it doesn't output what it says it does) |
||
Line 302:
=={{header|Perl 6}}==
{{incorrect}}
{{trans|Perl}}
<lang Perl 6>sub align ( Str $σ, Str $t ) {
Line 311 ⟶ 312:
@A[ 0][$_]<d s t> = $_, '-' x $_, @t[1..$_].join for ^@t;
for 1 ..^ @s X 1..^ @t -> (\i, \j) {
if @s[i] ne @t[j] {
@A[i][j]<d> = 1 + my $min =
| |||