From 6b9ec331ef8c35e19c4ccced554a62157bebed3f Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Sun, 4 Dec 2022 07:34:02 -0500 Subject: [PATCH] add day4 --- day4/part1.clj | 12 ++++++++++++ day4/part2.clj | 12 ++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 day4/part1.clj create mode 100644 day4/part2.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) 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)