diff options
Diffstat (limited to 'day22/part1.clj')
| -rw-r--r-- | day22/part1.clj | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/day22/part1.clj b/day22/part1.clj deleted file mode 100644 index bffc1a9..0000000 --- a/day22/part1.clj +++ /dev/null @@ -1,25 +0,0 @@ -(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)))) - |