From a804cd7bdf6cf1557cca4656eeca678925059358 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Thu, 3 Dec 2020 15:25:35 +0100
Subject: day02

---
 day02.clj | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 day02.clj

(limited to 'day02.clj')

diff --git a/day02.clj b/day02.clj
new file mode 100644
index 0000000..e6a1a5b
--- /dev/null
+++ b/day02.clj
@@ -0,0 +1,17 @@
+(def data
+  (->> (slurp "day02")
+       (clojure.string/split-lines)
+       (map #(re-matches #"(\d+)-(\d+) (.): (.*)" %))
+       (map (fn [[_ a b c d]]
+              [(Integer/parseInt a) (Integer/parseInt b) (first c) d]))))
+
+(defn valid-1? [[a b c d]]
+  (<= a (count (filter #{c} d)) b))
+
+(count (filter valid-1? data)) ; => 586
+
+(defn valid-2? [[a b c d]]
+  (not= (= c (nth d (- a 1)))
+        (= c (nth d (- b 1)))))
+
+(count (filter valid-2? data)) ; => 352
-- 
cgit 1.4.1