You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

28 lines
796 B
Clojure

3 years ago
(require '[clojure.string :as str])
(def caves (->> (slurp "./in")
(str/split-lines)
(map #(str/split % #"-"))
(map (partial map str))
(#(concat % (map reverse %)))
))
(defn get-caves-forward [klst]
(map #(cons (second %) klst)
(filter
#(or (< (int (first (second %))) 96)
(not-any? (partial = (second %)) klst))
(filter #(= (first %) (first klst)) caves)
)))
3 years ago
(loop [lst (get-caves-forward ["start"]) ms '()]
(let [nxt (->> lst
(map get-caves-forward)
(apply concat))
mtchs (concat ms (filter #(= (first %) "end") nxt))
nxtlst (filter #(not= (first %) "end") nxt)]
(if (empty? nxtlst)
(println (count mtchs))
(recur nxtlst mtchs))))