diff options
Diffstat (limited to 'year2021/day22/part1.clj')
| -rw-r--r-- | year2021/day22/part1.clj | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/year2021/day22/part1.clj b/year2021/day22/part1.clj new file mode 100644 index 0000000..bffc1a9 --- /dev/null +++ b/year2021/day22/part1.clj @@ -0,0 +1,25 @@ +(require '[clojure.string :as str]) + +(def input (->> (slurp "./in") + (str/split-lines) + (map + (fn [line] + [(if (str/starts-with? line "on") true false) + (->> (str/split line #"[^-\d]+") + (rest) + (map #(Integer/parseInt %)) + (partition 2))])))) + +(println + (frequencies + (vals + (reduce + (fn [cmap c] + (into cmap + (let [[xx yy zz] (second c)] + (for [x (range (max -50 (first xx)) (inc (min 50 (second xx)))) + y (range (max -50 (first yy)) (inc (min 50 (second yy)))) + z (range (max -50 (first zz)) (inc (min 50 (second zz))))] + [[x y z] (first c)])))) + {} input)))) + |