move 2021 days to folder; update README

1 files changed, 0 insertions, 27 deletions

diff --git a/day14/part1.clj b/day14/part1.clj
deleted file mode 100644
index de03bda..0000000
--- a/day14/part1.clj
+++ /dev/null
@@ -1,27 +0,0 @@
-(require '[clojure.string :as str])
-
-(def input (->> (slurp "./in")
-                str/split-lines
-                ((juxt
-                   first
-                   (fn [lines]
-                     (->> lines
-                       (drop 2)
-                       (map #(str/split % #" -> "))
-                       (flatten)
-                       (apply (partial assoc {}))
-                       ))))))
-
-(defn grow-polymer [polymer insertion-rules]
-  (str/join
-    (cons
-      (first polymer)
-      (mapcat (juxt insertion-rules second)
-        (for [i (range 0 (dec (count polymer)))]
-          (subs polymer i (+ i 2)))))))
-
-(def growth-seq (iterate #(grow-polymer % (second input)) (first input)))
-
-(let [freqs (vals (frequencies (nth growth-seq 10)))]
-  (println (- (apply max freqs) (apply min freqs))))
-