Skip to content
This repository was archived by the owner on Aug 31, 2021. It is now read-only.

Commit 30e26b4

Browse files
Rename example files to exemplar
See exercism/docs#23
1 parent eb2246e commit 30e26b4

File tree

195 files changed

+22
-22
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

195 files changed

+22
-22
lines changed
Original file line numberDiff line numberDiff line change
@@ -1,22 +1,22 @@
1-
(ns vectors)
2-
3-
(def last-week [0 2 5 3 7 8 4])
4-
(def birds-per-day [2 5 0 7 4 1])
5-
6-
(defn today [birds]
7-
(last birds))
8-
9-
(defn inc-bird [birds]
10-
(update birds (dec (count birds)) inc))
11-
12-
(defn day-without-birds? [birds]
13-
(pos? (count (filter zero? birds))))
14-
15-
(defn n-days-count [birds n]
16-
(reduce + (take n birds)))
17-
18-
(defn busy-days [birds]
19-
(count (filter #(>= % 5) birds)))
20-
21-
(defn odd-week? [birds]
22-
(= birds [1 0 1 0 1 0 1]))
1+
(ns vectors)
2+
3+
(def last-week [0 2 5 3 7 8 4])
4+
(def birds-per-day [2 5 0 7 4 1])
5+
6+
(defn today [birds]
7+
(last birds))
8+
9+
(defn inc-bird [birds]
10+
(update birds (dec (count birds)) inc))
11+
12+
(defn day-without-birds? [birds]
13+
(pos? (count (filter zero? birds))))
14+
15+
(defn n-days-count [birds n]
16+
(reduce + (take n birds)))
17+
18+
(defn busy-days [birds]
19+
(count (filter #(>= % 5) birds)))
20+
21+
(defn odd-week? [birds]
22+
(= birds [1 0 1 0 1 0 1]))

0 commit comments

Comments
 (0)