Levenshtein distance/Alignment: Difference between revisions
→{{header|Perl 6}}: putting everything in a single array for shorter code
m (→{{header|Perl 6}}: minor tweak) |
(→{{header|Perl 6}}: putting everything in a single array for shorter code) |
||
Line 68:
my @s = *, $σ.comb;
my @t = *, $t.comb;
my @
@
@
for 1 ..^ @s X 1..^ @t -> $i, $j {▼
▲ for 1..^@s X 1..^@t -> $i, $j {
if @s[$i] eq @t[$j] {
# No operation required when eq
next;
}
@
min @
if @
# Deletion
}
elsif @
# Insertion
}
else {
# Substitution
}
}
return
}
.say for align |<rosettacode raisethysword>;</lang>
{{out}}
<pre>ro-settac-o-de
|