move 2021 days to folder; update README

1 files changed, 20 insertions, 0 deletions

diff --git a/year2021/day6/part1.clj b/year2021/day6/part1.clj
new file mode 100644
index 0000000..70293f7
--- /dev/null
+++ b/year2021/day6/part1.clj
@@ -0,0 +1,20 @@
+(require '[clojure.string :as str])
+
+(def fish-init
+  (->> (read-line)
+       (#(str/split % #","))
+       (map #(Integer/parseInt %))
+       (vec)
+       )
+  )
+
+(defn cycle-day [fish]
+  (flatten
+    (for [f (map dec fish)]
+      (if (neg? f) [6 8] f)
+      )
+    )
+  )
+
+(println (count (nth (iterate cycle-day fish-init) 80)))
+