blob: a59098ad4b3a58a05d93ec8dedaec5256d8bcbcf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)
|
