Day 20

caseneuve · Apr 7, 2023 · 5cd98ab · 5cd98ab
1 parent c18ec38
commit 5cd98ab
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/Clojure/day20.clj b/Clojure/day20.clj
@@ -0,0 +1,11 @@
+(ns day20
+  (:require [input :refer [f->str]]))
+
+(defn -main [day]
+  (let [input (->> day f->str (re-seq #"\d+") (map parse-long) (partition 2) (sort-by first))
+        max-ip 4294967295]
+    (loop [[[a b] & rx] (rest input), [x y] (first input), result {:part1 [] :part2 0}]
+      (cond
+        (empty? rx) (-> result (update :part1 first) (update :part2 + (- max-ip y)))
+        (> a (inc y)) (recur rx [a b] (-> result (update :part1 conj (inc y)) (update :part2 + (dec (- a y)))))
+        :else         (recur rx [x (max b y)] result)))))