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

simplify

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-04 01:22:00 -05:00
parent b38a9393d3
commit cf53738987
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
2023/src/day04.clj
View File

@ -6,10 +6,7 @@
[clojure.string :as string]
[core :refer [get-puzzle-input]]))
(def lines (get-puzzle-input 4))
(defn parse-lines [lines]
(->> lines
(def data (->> (get-puzzle-input 4)
(map #(rest (re-find #"^Card\s*\d+: ([\s\d]+) \| ([\s\d]+)" %)))
(map (partial map #(->> (string/split % #" ")
(filter not-empty)
@ -17,7 +14,7 @@
(into #{}))))))
;; part 1
(->> (parse-lines lines)
(->> data
(map (partial apply intersection))
(map count)
(map #(math/pow 2 (dec %)))
@ -26,7 +23,7 @@
;; part 2
(loop [acc 0
data (->> (parse-lines lines)
data (->> data
(map #(vector 1 (count (apply intersection %))))
(into []))]
(if (not-empty data)