Skip to content

Commit 769d06f

Browse files
committed
Add q68
1 parent 0b8cb1b commit 769d06f

File tree

2 files changed

+25
-0
lines changed

2 files changed

+25
-0
lines changed

src/ex/q068.clj

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
;; https://4clojure.oxal.org/#/problem/068
2+
3+
(ns ex.q068)
4+
5+
(defn ans
6+
"Problem 68, Recurring Theme"
7+
[]
8+
[7 6 5 4 3])

test/ex/q068_test.clj

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
;; https://4clojure.oxal.org/#/problem/068
2+
3+
(ns ex.q068-test
4+
(:require [clojure.test :as t]
5+
[ex.q068 :as sut]))
6+
7+
(defn question
8+
[]
9+
(loop [x 5
10+
result []]
11+
(if (> x 0)
12+
(recur (dec x) (conj result (+ 2 x)))
13+
result)))
14+
15+
(t/deftest test-q68
16+
(t/testing "Problem 68, Recurring Theme"
17+
(t/is (= (question) (sut/ans)))))

0 commit comments

Comments
 (0)