48 lines
1020 B
Clojure
48 lines
1020 B
Clojure
|
(ns day10
|
||
|
|
(:require [mapped-area]
|
||
|
|
[helpers :refer [get-input]]))
|
||
|
|
|
||
|
|
(def test-map
|
||
|
|
(mapped-area/parse-elements
|
||
|
|
(mapped-area/read-mapped-area
|
||
|
|
"89010123
|
||
|
|
78121874
|
||
|
|
87430965
|
||
|
|
96549874
|
||
|
|
45678903
|
||
|
|
32019012
|
||
|
|
01329801
|
||
|
|
10456732")))
|
||
|
|
|
||
|
|
(defn trailheads [a]
|
||
|
|
(reduce
|
||
|
|
(fn [coll [coord value]]
|
||
|
|
(if (= value 0)
|
||
|
|
(conj coll coord)
|
||
|
|
coll))
|
||
|
|
[]
|
||
|
|
(mapped-area/mapped-area-indexed-seq a)))
|
||
|
|
|
||
|
|
(defn step [a [x y]]
|
||
|
|
(let [c (get-in a [x y])
|
||
|
|
even-gradual-uphill?
|
||
|
|
(fn [[x' y']]
|
||
|
|
(let [c' (get-in a [x' y'])]
|
||
|
|
(= 1 (- c' c))))]
|
||
|
|
(->>
|
||
|
|
[[(inc x) y] [(dec x) y]
|
||
|
|
[x (inc y)] [x (dec y)]]
|
||
|
|
(filter (partial mapped-area/mapped? a))
|
||
|
|
(filter even-gradual-uphill?))))
|
||
|
|
|
||
|
|
(defn walk [a trailhead]
|
||
|
|
(loop [positions [trailhead]]
|
||
|
|
(println positions)
|
||
|
|
(if (== 9 (get-in a (first positions)))
|
||
|
|
(count positions)
|
||
|
|
(recur (mapcat (partial step a) (set positions))))))
|
||
|
|
|
||
|
|
|
||
|
|
(reduce +
|
||
|
|
(map (partial walk test-map) (trailheads test-map)))
|