From 6b9ec331ef8c35e19c4ccced554a62157bebed3f Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 4 Dec 2022 07:34:02 -0500
Subject: add day4

---
 day4/part1.clj | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 day4/part1.clj

(limited to 'day4/part1.clj')

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)
-- 
cgit v1.2.3