1 files changed, 25 insertions, 0 deletions
diff --git a/day6/part2.clj b/day6/part2.clj
new file mode 100644
index 0000000..cdcc3b5
--- /dev/null
+++ b/day6/part2.clj
@@ -0,0 +1,25 @@
+(require '[clojure.string :as str])
+
+(->> (read-line)
+     (#(str/split % #","))
+     (map #(Integer/parseInt %))
+     (reduce #(update %1 %2 inc) (vec (repeat 9 0)))
+     (iterate
+       #(let [nf (conj (vec (rest %)) (first %))]
+          (update nf 6 (partial + (get nf 8)))
+          )
+       )
+     (#(nth % 256))
+     (apply +)
+     (println)
+     )
+
+; ->> read input from stdin
+;     split input string by commas
+;     convert string array into number array
+;     reduce to frequency counts
+;     create iterator that returns next day's counts
+;     get 256th iteration
+;     sum all frequency counts
+;     print results
+