blob: bffc1a9f59cad8737f80b2a5f15d0ca53fe53c9a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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))))
|
