Anonymous user
Levenshtein distance/Alignment: Difference between revisions
→{{header|Eiffel}}
Line 163:
⟳ jc:(1 |..| target.count) ¦
if ic > 1 and jc > 1 then
if source [ic] = target [jc] then -- same letter
l_distance [ic, jc] := l_distance [ic - 1, jc - 1]
else -- diff letter
del := l_distance [ic - 1, jc] -- do we delete?
ins := l_distance [ic, jc - 1] -- do we insert?
subst := l_distance [ic - 1, jc -1] -- do we substitute/swap?
l_distance [ic, jc] := del.min (ins.min (subst)) + 1
end
| |||