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)