From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 4 Dec 2022 12:34:02 +0000 (-0500)
Subject: add day4
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=6b9ec331ef8c35e19c4ccced554a62157bebed3f;p=clyne%2Fadvent-of-code.git

add day4
---

diff --git a/day4/part1.clj b/day4/part1.clj
new file mode 100644
index 0000000..72efa35
--- /dev/null
+++ b/day4/part1.clj
@@ -0,0 +1,12 @@
+(->> (slurp "input")
+    (#(clojure.string/split % #"[^0-9]"))
+    (map read-string)
+    (partition 4)
+    (map
+      #(or (and (>= (first %) (nth % 2))
+                (<= (second %) (nth % 3)))
+           (and (>= (nth % 2) (first %))
+                (<= (nth % 3) (second %)))))
+    (filter true?)
+    count
+    println)
diff --git a/day4/part2.clj b/day4/part2.clj
new file mode 100644
index 0000000..d5929d6
--- /dev/null
+++ b/day4/part2.clj
@@ -0,0 +1,12 @@
+(->> (slurp "input")
+    (#(clojure.string/split % #"[^0-9]"))
+    (map read-string)
+    (partition 4)
+    (map
+      #(or (and (>= (first %) (nth % 2)) (<= (first %) (nth % 3)))
+           (and (>= (second %) (nth % 2)) (<= (second %) (nth % 3)))
+           (and (>= (nth % 2) (first %)) (<= (nth % 2) (second %)))
+           (and (>= (nth % 3) (first %)) (<= (nth % 3) (second %)))))
+    (filter true?)
+    count
+    println)