This commit is contained in:
Adam Jeniski 2023-12-01 11:10:11 -05:00
parent 3fb9c68d6d
commit fb64df5db5

View File

@ -12,14 +12,14 @@
(re-find #"\d" (string/reverse %))))) (re-find #"\d" (string/reverse %)))))
(reduce +)) (reduce +))
(def numeric-value-map {"one" 1, (def numeric-value-map {"one" 1
"two" 2, "two" 2
"three" 3, "three" 3
"four" 4, "four" 4
"five" 5, "five" 5
"six" 6, "six" 6
"seven" 7, "seven" 7
"eight" 8, "eight" 8
"nine" 9}) "nine" 9})
(defn numeric-value [s] (defn numeric-value [s]
(or (numeric-value-map s) s)) (or (numeric-value-map s) s))