vishnuvyas
/ levenshtein.clj
Created
May 6, 2011 05:29
A purely functional implementation of levenshtein distance in clojure
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns levenshtein | |
| ^{:doc "A purely functional implementation of the levenshtien distance in clojure"}) | |
| (defn- compute-next-row | |
| "computes the next row using the prev-row current-element and the other seq" | |
| [prev-row current-element other-seq pred] | |
| (reduce | |
| (fn [row [diagonal above other-element]] | |
| (let [update-val | |
| (if (pred other-element current-element) |