Jump to content

Levenshtein distance: Difference between revisions

Levenshtein distance (view source)

Revision as of 17:03, 25 February 2023

38 bytes removed ,  1 year ago
→‎{{header|Common Lisp}}: Fix the formula for Levenshtein distance
(→‎{{header|Common Lisp}}: Fix the formula for Levenshtein distance)
Line 1,398:
((aref rec x y) (aref rec x y))
(t (setf (aref rec x y)
(min (+ (if (char= (char aleven (1- la x)) (char b (- lb y))) 0 1)
(min+ (leven x (1- xy)) y1)
(+ (leven (1- x) (1- y)) (if (char= (levenchar a (- la x)) (char b (1- lb y))) 0 1))))))))
(leven (1- x) (1- y)))))))))
(leven la lb))))
 
M-tkach
1

edit

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/337601"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information