diff options
Diffstat (limited to 'day4/both.clj')
| -rw-r--r-- | day4/both.clj | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/day4/both.clj b/day4/both.clj new file mode 100644 index 0000000..a59098a --- /dev/null +++ b/day4/both.clj @@ -0,0 +1,23 @@ +(defn part1pred [lst] + (or (and (>= (nth lst 0) (nth lst 2)) + (<= (nth lst 1) (nth lst 3))) + (and (>= (nth lst 2) (nth lst 0)) + (<= (nth lst 3) (nth lst 1))))) + +(defn part2pred [lst] + (or (and (>= (nth lst 0) (nth lst 2)) (<= (nth lst 0) (nth lst 3))) + (and (>= (nth lst 1) (nth lst 2)) (<= (nth lst 1) (nth lst 3))) + (and (>= (nth lst 2) (nth lst 0)) (<= (nth lst 2) (nth lst 1))) + (and (>= (nth lst 3) (nth lst 0)) (<= (nth lst 3) (nth lst 1))))) + +(def count-filtered (comp println count filter)) + +(def elf-pairs + (->> (slurp "input") + (#(clojure.string/split % #"[^\d]")) + (map read-string) + (partition 4))) + +(count-filtered part1pred elf-pairs) +(count-filtered part2pred elf-pairs) + |