diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-11-30 19:55:31 -0500 |
| commit | 8d43e37df99f280377bed90284d6ac2428334804 (patch) | |
| tree | 3a5042c9af29da52b4bac38fd78b3ccde77a1dbc /day22/part1.clj | |
| parent | 66ed0b9d27850dc653abc8baa75884f3de311bfa (diff) | |
move 2021 days to folder; update README
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)))) - |