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

apply concat > mapcat identity

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-03 14:43:52 -05:00
parent bbd5f8818f
commit 57576bd5a4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
2023/src/day03.clj
View File

@ -12,7 +12,7 @@
(map-indexed (fn [col-idx char]
[[row-idx col-idx] char])
line)))
(mapcat identity)
(apply concat)
(into {})))
;; produces a list of [row-idx col-idx "num"]
@ -22,7 +22,7 @@
(map-indexed (fn [row matches]
(map #(vector row (:start %) (:group %))
matches)))
(mapcat identity)))
(apply concat)))
(defn coords-to-check [row col num-str]
(for [r [(dec row) row (inc row)]
@ -49,7 +49,7 @@
(filter #(= \* (second %)))
(map #(vector % num-str)))))
(filter seq)
(mapcat identity)
(apply concat)
(map (fn [[[coords] num-str]] [coords num-str]))))
;; gears is a set of [star-row-idx star-col-idx]