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