diff options
Diffstat (limited to 'day21/part1.clj')
| -rw-r--r-- | day21/part1.clj | 22 |
1 files changed, 0 insertions, 22 deletions
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))))) - |