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

Avoid extra decrementation in factorial

Browse source
This commit is contained in:
Kenneth Kostresevic 2021-12-17 13:03:37 +01:00
parent 4bd3bc9a72
commit 807e32abbb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/koans/14_recursion.clj
View file

@ -20,10 +20,10 @@
(recur tail (conj new-coll head)))))
(defn factorial [n]
(loop [n n acc n]
(loop [n n acc 1]
(if (= n 1)
acc
(recur (dec n) (* acc (dec n))))))
(recur (dec n) (* acc n)))))
(meditations
"Recursion ends with a base case"