birdulon
/
AdventOfCode
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

2022 Day 4 Clojure

This commit is contained in:
Luke Hubmayer-Werner 2022-12-05 22:13:10 +10:30
parent 5c0bf51226
commit 237265b387
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
2022/day4.clj Normal file
View File

@ -0,0 +1,21 @@
(require '[clojure.string :as str])
(def lines (str/split-lines (slurp "input/4")))
(def number-regex #"(?:(?<!\d)-)?\d+")
(defn parse-int [str] (Integer/valueOf str 10))
(defn get-numbers [line] (map parse-int (re-seq number-regex line)))
(def numbers (map get-numbers lines))
(defn range-within [s0 s1 t0 t1] ;; either range is a subset of the other
(or (<= t0 s0 s1 t1)
(<= s0 t0 t1 s1)))
(defn range-overlaps [s0 s1 t0 t1] ;; any range overlap
(or (<= t0 s0 t1)
(<= t0 s1 t1)
(<= s0 t0 s1)
(<= s0 t1 s1)))
;; Part 1 - one set is a subset of the other
(println (format "Part 1: %d elves have no unique work in their pairing"
(count (filter identity (map #(apply range-within %) numbers)))))
;; Part 2 - any set overlap
(println (format "Part 2: %d elf pairs have overlapping work in their pairing"
(count (filter identity (map #(apply range-overlaps %) numbers)))))