year2021/day6/part1.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)))