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 =