Levenshtein distance/Alignment: Difference between revisions
m
Added Sidef
m (→{{header|Perl 6}}: it doesn't output what it says it does) |
m (Added Sidef) |
||
Line 465:
<pre>
r-oset-taco-de
raisethysword-
</pre>
=={{header|Sidef}}==
{{trans|Perl}}
<lang ruby>func align(s, t) {
s.chars!.prepend!('^')
t.chars!.prepend!('^')
var A = []
s.range.each {|i| A[i][0]{@<d s t>} = (i, s.ft(1, i).join, '~' * i) }
t.range.each {|i| A[0][i]{@<d s t>} = (i, '-' * i, t.ft(1, i).join) }
1 ... s.end -> each { |i|
1 ... t.end -> each { |j|
if (s[i] != t[j]) {
A[i][j]{:d} = 1+(
var min = Math.min(A[i-1][j]{:d}, A[i][j-1]{:d}, A[i-1][j-1]{:d})
)
A[i][j]{@<s t>} = @(A[i-1][j]{:d} == min
? [A[i-1][j]{:s}+s[i], A[i-1][j]{:t}+'-']
: (A[i][j-1]{:d} == min
? [A[i][j-1]{:s}+'-', A[i][j-1]{:t}+t[j]]
: [A[i-1][j-1]{:s}+s[i], A[i-1][j-1]{:t}+t[j]]))
}
else {
A[i][j]{@<d s t>} = (
A[i-1][j-1]{:d},
A[i-1][j-1]{:s}+s[i],
A[i-1][j-1]{:t}+t[j],
)
}
}
}
return [A[-1][-1]{@<s t>}]
}
align("rosettacode", "raisethysword").each { .say }</lang>
{{out}}
<pre>
ro-settac-o-de
raisethysword-
</pre>
|