You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
579 B
39 lines
579 B
3 years ago
|
(ns bird-watcher)
|
||
|
|
||
|
(def last-week
|
||
|
[0 2 5 3 7 8 4]
|
||
|
)
|
||
|
|
||
|
(def birds-per-day
|
||
|
)
|
||
|
|
||
|
(defn today [birds]
|
||
|
(if (empty? (rest birds))
|
||
|
(first birds)
|
||
|
(today (rest birds)))
|
||
|
)
|
||
|
|
||
|
(defn inc-bird [birds]
|
||
|
(conj (pop birds) (+ (today birds) 1))
|
||
|
)
|
||
|
|
||
|
(defn day-without-birds? [birds]
|
||
|
(if (empty? birds)
|
||
|
false
|
||
|
(if (= (first birds) 0)
|
||
|
true
|
||
|
(day-without-birds? (rest birds))))
|
||
|
)
|
||
|
|
||
|
(defn n-days-count [birds n]
|
||
|
(reduce + (take n birds))
|
||
|
)
|
||
|
|
||
|
(defn busy-days [birds]
|
||
|
(count (filter #(> % 4) birds))
|
||
|
)
|
||
|
|
||
|
(defn odd-week? [birds]
|
||
|
(= birds [1 0 1 0 1 0 1])
|
||
|
)
|