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 --- day21/part1.clj | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 day21/part1.clj (limited to 'day21/part1.clj') diff --git a/day21/part1.clj b/day21/part1.clj deleted file mode 100644 index 174f5a1..0000000 --- a/day21/part1.clj +++ /dev/null @@ -1,22 +0,0 @@ -(require 'clojure.string) - -(loop [player-positions (->> (slurp "./in") - clojure.string/split-lines - (map (comp read-string second #(clojure.string/split % #": "))) - (mapv #(drop (dec %) (cycle (range 1 11))))) - player-scores (into [] (repeat (count player-positions) 0)) - player-turn (cycle (range 0 (count player-scores))) - deterministic-dice (cycle (range 1 101)) - dice-roll-count 0] - (if-not (every? #(< % 1000) player-scores) - (println (* dice-roll-count (apply min player-scores))) - (let [roll (reduce + (take 3 deterministic-dice)) - turn (first player-turn) - new-position (drop roll (get player-positions turn))] - (recur - (assoc player-positions turn new-position) - (update player-scores turn + (first new-position)) - (next player-turn) - (drop 3 deterministic-dice) - (+ dice-roll-count 3))))) - -- cgit v1.2.3