From 8d43e37df99f280377bed90284d6ac2428334804 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Wed, 30 Nov 2022 19:55:31 -0500 Subject: move 2021 days to folder; update README --- day10/part2.clj | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 day10/part2.clj (limited to 'day10/part2.clj') diff --git a/day10/part2.clj b/day10/part2.clj deleted file mode 100644 index 4dfaf3b..0000000 --- a/day10/part2.clj +++ /dev/null @@ -1,24 +0,0 @@ -(def to-closing {\{ \} \( \) \[ \] \< \>}) -(def to-score {\) 1 \] 2 \} 3 \> 4}) - -(defn check-line [input] - (loop [in input open '()] - (if-let [c (first in)] - (when (or (nil? (#{\} \) \] \>} c)) (= (first open) c)) - (recur - (rest in) - (if-let [op (to-closing c)] - (conj open op) - (rest open)))) - open - ))) - -(->> (slurp "./in") - (clojure.string/split-lines) - (map (comp check-line vec)) - (filter some?) - (map (partial reduce #(+ (* 5 %1) (to-score %2)) 0)) - (sort) - (#(nth % (quot (count %) 2))) - (println)) - -- cgit v1.2.3