1 files changed, 27 insertions, 0 deletions
diff --git a/year2021/day14/part1.clj b/year2021/day14/part1.clj
new file mode 100644
index 0000000..de03bda
--- /dev/null
+++ b/year2021/day14/part1.clj
@@ -0,0 +1,27 @@
+(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))))
+