2024,d25 del 1

Author: Oddsor

input/2024/input25.nippy

@@ -0,0 +1,81 @@
+(ns y2024.d25
+  (:require
+   [advent-of-code-clj.input :as input]
+   [advent-of-code-clj.utils :as utils]
+   [com.rpl.specter :as s]))
+
+(def test-input "#####
+.####
+.####
+.####
+.#.#.
+.#...
+.....
+
+#####
+##.##
+.#.##
+...##
+...#.
+...#.
+.....
+
+.....
+#....
+#....
+#...#
+#.#.#
+#.###
+#####
+
+.....
+.....
+#.#..
+###..
+###.#
+###.#
+#####
+
+.....
+.....
+.....
+#....
+#.#..
+#.#.#
+#####")
+
+(def example-key ".....
+.....
+.....
+#....
+#.#..
+#.#.#
+#####")
+
+(defn parse-key [input]
+  (map (fn [line]
+         (dec (count (filter #{\.} line))))
+       (apply mapv vector (utils/text->matrix input))))
+(defn parse-lock [input]
+  (map (fn [line]
+         (dec (count (filter #{\#} line))))
+       (apply mapv vector (utils/text->matrix input))))
+
+(defn parse [input]
+  (let [lock-or-key (.split input "\n\n")
+        lock (filter #(.startsWith % "#####") lock-or-key)
+        key (remove #(.startsWith % "#####") lock-or-key)]
+    {:keys (map parse-key key)
+     :locks (map parse-lock lock)}))
+
+(defn part-1 [input]
+  (let [{:keys [locks keys]} (parse input)]
+    (count (for [key keys
+                 lock locks
+                 :let [subbed (map - key lock)]
+                 :when (every? nat-int? subbed)]
+             subbed))))
+
+(part-1 test-input)
+
+(part-1 (input/get-input 2024 25))