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

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