compute map

This commit is contained in:
Adam Jeniski 2023-12-01 19:46:54 -05:00
parent 779d66ec7f
commit 4e7d3a5893

View File

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