luciano/clojure-koans
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Solve recursion

Browse source
This commit is contained in:
Kenneth Kostresevic 2021-12-16 15:56:29 +01:00
parent a9c22921a5
commit cdd46053a9
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/koans/14_recursion.clj
View file

@ -3,21 +3,27 @@
(defn is-even? [n] (defn is-even? [n]
(if (= n 0) (if (= n 0)
__ true
(___ (is-even? (dec n))))) (not (is-even? (dec n)))))
(defn is-even-bigint? [n] (defn is-even-bigint? [n]
(loop [n n (loop [n n
acc true] acc true]
(if (= n 0) (if (= n 0)
__ acc
(recur (dec n) (not acc))))) (recur (dec n) (not acc)))))
(defn recursive-reverse [coll] (defn recursive-reverse [coll]
__) (loop [coll coll acc '()]
(if (= coll [])
acc
(recur (rest coll) (conj acc (first coll))))))
(defn factorial [n] (defn factorial [n]
__) (loop [n n acc n]
(if (= n 1)
acc
(recur (dec n) (* acc (dec n))))))
(meditations (meditations
"Recursion ends with a base case" "Recursion ends with a base case"