Anonymous user
Levenshtein distance/Alignment: Difference between revisions
m
→Racket: Complete version: Use argmin
(→{{header|Racket}}: Extends solution to show the alignments) |
m (→Racket: Complete version: Use argmin) |
||
Line 310:
(cons sx (lev-s old))
(cons tx (lev-t old))))
(define (list-repeat n v)
Line 334 ⟶ 331:
[else
(if (equal? (first s) (first t))
(
1 (first s) #\-)
(lev-add (levenshtein/list s (rest t))
1 #\- (first t))
(lev-add (levenshtein/list (rest s) (rest t))
1 (first s) (first t)))))]))))
(define (levenshtein s t)
| |||