blob: 813d5a6f8c30bc2e09fae6a84939306e069c1eef (
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
26
27
28
29
30
31
32
33
34
35
36
37
|
(def input-map
(->> (slurp "./in")
(clojure.string/split-lines)
(mapv vec)
(mapv (partial mapv #(- (int %) 48)))
))
(defn compare-heights [a b]
(if (or (nil? a) (nil? b) (< a b)) 1 0))
(println
(apply +
(for [y (range 0 (count input-map))
x (range 0 (count (first input-map)))]
(let [height (get-in input-map [y x])]
(if
(= 4
(apply +
(map
(partial compare-heights height)
[
(get-in input-map [(dec y) x])
(get-in input-map [(inc y) x])
(get-in input-map [y (dec x)])
(get-in input-map [y (inc x)])
]
)
)
)
(inc height)
0
)
)
)
)
)
|
