ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 13:03:19 -09:00
Code Issues Packages Projects Releases Wiki Activity

clean up regex. compute not hardcode

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-01 01:13:26 -05:00
parent 0ce843f177
commit 574d0888cc
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2023/src/day01.clj
View File

@ -28,10 +28,18 @@
(reduce +)) (reduce +))
;; part 2 ;; part 2
(def forawrd-search-regex (->> (conj (keys numeric-value-map) "\\d")
(string/join "|")
re-pattern))
(def backwards-search-regex (->> (conj (->> numeric-value-map keys (map string/reverse)) "\\d")
(string/join "|")
re-pattern))
(->> input (->> input
(map (fn [line] (map (fn [line]
(let [f (re-find #"one|two|three|four|five|six|seven|eight|nine|\d" line) (let [f (re-find forawrd-search-regex line)
l (string/reverse (re-find #"eno|owt|eerht|ruof|evif|xis|neves|thgie|enin|\d" (string/reverse line)))] l (string/reverse (re-find backwards-search-regex (string/reverse line)))]
(str (numeric-value f) (numeric-value l))))) (str (numeric-value f) (numeric-value l)))))
(map #(Integer/parseInt %)) (map #(Integer/parseInt %))
(reduce +)) (reduce +))