You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
(defn within [n b e] (and (>= n b) (<= n e)))
|
|
|
|
|
|
|
|
|
|
(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 (within (nth lst 0) (nth lst 2) (nth lst 3))
|
|
|
|
|
(within (nth lst 1) (nth lst 2) (nth lst 3))
|
|
|
|
|
(within (nth lst 2) (nth lst 0) (nth lst 1))
|
|
|
|
|
(within (nth lst 3) (nth lst 0) (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)
|
|
|
|
|
|
