From 0aae065aba47d499df378b2233c49b0b2668b55f Mon Sep 17 00:00:00 2001 From: Mikkel Gravgaard Date: Thu, 14 Jan 2021 11:18:00 +0100 Subject: [PATCH] Make cljs-compatible --- src/main/clojure/org/vanbart/levens.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/clojure/org/vanbart/levens.clj b/src/main/clojure/org/vanbart/levens.clj index 69d2873..8912fcb 100644 --- a/src/main/clojure/org/vanbart/levens.clj +++ b/src/main/clojure/org/vanbart/levens.clj @@ -34,7 +34,7 @@ (levenshtein 1 (vec (cons 0 row0)) str1 str2))) ([row-nr prevrow str1 str2] (let [next-row (nextrow (first str1) str2 prevrow (vector row-nr)) - str1-remainder (.substring str1 1)] + str1-remainder (subs str1 1)] (if (= "" str1-remainder) (last next-row) (recur (inc row-nr) next-row str1-remainder str2)))) @@ -60,4 +60,4 @@ (is (= 3 (levenshtein "Sunday" "Saturday"))) (is (= 3 (levenshtein "kitten" "sitting")))) -(run-tests) \ No newline at end of file +(run-tests)