day04

2 files changed, 30 insertions, 0 deletions

diff --git a/AoC2022/aocclj/src/aocclj/day04.clj b/AoC2022/aocclj/src/aocclj/day04.clj
new file mode 100644
index 0000000..5b03eeb
--- /dev/null
+++ b/AoC2022/aocclj/src/aocclj/day04.clj
@@ -0,0 +1,23 @@
+(ns aocclj.day04
+  (:require [clojure.string :as str]))
+
+(defn subinterval [a0 a1 b0 b1]
+  (and (<= a0 b0) (>= a1 b1)))
+
+(defn subcontained [a0 a1 b0 b1]
+  (or (subinterval a0 a1 b0 b1)
+      (subinterval b0 b1 a0 a1)))
+
+(defn overlap [a0 a1 b0 b1]
+  "Test if [b0;b1] overlaps [a0;a1]"
+  (and (<= a0 b1) (<= b0 a1)))
+
+(defn solver [func input]
+  (transduce
+    (comp
+     (map #(str/split % #"[,-]"))
+     (map (partial map parse-long))
+     (map #(apply func %))
+     (map #(if (true? %) 1 0)))
+    +
+    input))
diff --git a/AoC2022/aocclj/test/aocclj/core_test.clj b/AoC2022/aocclj/test/aocclj/core_test.clj
index dc3f3bb..fd34fe0 100644
--- a/AoC2022/aocclj/test/aocclj/core_test.clj
+++ b/AoC2022/aocclj/test/aocclj/core_test.clj
@@ -2,6 +2,7 @@
   (:require [clojure.test :refer :all]
             [aocclj.day01 :as day01]
             [aocclj.day03 :as day03]
+            [aocclj.day04 :as day04]
             [aocclj.core :refer :all]
             [clojure.string :as str]))
 
@@ -16,3 +17,9 @@
     (are [expected function] (= expected (function input))
       8072 day03/part1
       2567 day03/part2)))
+
+(deftest day04
+  (let [input (str/split-lines (slurp "../04/input"))]
+    (are [expected function] (= expected (day04/solver function input))
+      515 day04/subcontained
+      883 day04/overlap)))