move 2021 days to folder; update README

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)))))
-