Levenshtein distance/Alignment: Difference between revisions
m
→{{header|Perl 6}}: flat needed
m (Mathematica code calculates distance, but does not give alignment) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flat needed) |
||
Line 310:
=={{header|Perl 6}}==
{{trans|Perl}}
<lang Perl 6>sub align ( Str $σ, Str $t ) {
my @s = flat *, $σ.comb;
my @t = flat *, $t.comb;
my @A;
Line 336 ⟶ 335:
}
.say for align
{{out}}
<pre>ro-settac-o-de
| |||