rename vars

This commit is contained in:
Adam Jeniski 2023-12-01 11:22:35 -05:00
parent fb64df5db5
commit 779d66ec7f

View File

@ -30,15 +30,15 @@
(#(conj % "\\d"))
(string/join "|")
re-pattern))
(def forwards-search-pattern (generate-regex-pattern identity))
(def backwards-search-pattern (generate-regex-pattern string/reverse))
(def first-num-pattern (generate-regex-pattern identity))
(def last-num-pattern (generate-regex-pattern string/reverse))
;; part 2
(->> input
(map #(Integer/parseInt
(str (numeric-value (re-find forwards-search-pattern %))
(str (numeric-value (re-find first-num-pattern %))
(numeric-value (string/reverse
(re-find backwards-search-pattern
(re-find last-num-pattern
(string/reverse %)))))))
(reduce +))