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

use better names

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-03 13:49:57 -05:00
parent 656d8bb725
commit bbd5f8818f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2023/src/day03.clj
View File

@ -31,8 +31,8 @@
;; part 1 ;; part 1
(->> (parse-nums lines) (->> (parse-nums lines)
(filter (fn touches-symbol? [[row col s]] (filter (fn touches-symbol? [[row col num-str]]
(->> (coords-to-check row col s) (->> (coords-to-check row col num-str)
(map char-map) (map char-map)
(filter (comp not nil?)) (filter (comp not nil?))
(some #(not (or (Character/isDigit %) (= % \.))))))) (some #(not (or (Character/isDigit %) (= % \.)))))))
@ -42,15 +42,15 @@
;; stars is a list of [[star-row-idx star-col-idx] "num"] ;; stars is a list of [[star-row-idx star-col-idx] "num"]
;; stars is list of each * char found touching a number when iterating by nums ;; stars is list of each * char found touching a number when iterating by nums
(def stars (->> (parse-nums lines) (def stars (->> (parse-nums lines)
(map (fn touching-stars [[row col s]] (map (fn touching-stars [[row col num-str]]
(->> (coords-to-check row col s) (->> (coords-to-check row col num-str)
(map #(vector % (char-map %))) (map #(vector % (char-map %)))
(filter #(not (nil? (second %)))) (filter #(not (nil? (second %))))
(filter #(= \* (second %))) (filter #(= \* (second %)))
(map #(vector % s))))) (map #(vector % num-str)))))
(filter seq) (filter seq)
(mapcat identity) (mapcat identity)
(map (fn [[[coords] num]] [coords num])))) (map (fn [[[coords] num-str]] [coords num-str]))))
;; gears is a set of [star-row-idx star-col-idx] ;; gears is a set of [star-row-idx star-col-idx]
;; gears is a list of each * char that is touching exactly 2 nums ;; gears is a list of each * char that is touching exactly 2 nums