Skip to content

Instantly share code, notes, and snippets.

@cgag

cgag/recur.clj

Created January 9, 2013 14:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cgag/4493547 to your computer and use it in GitHub Desktop.
Save cgag/4493547 to your computer and use it in GitHub Desktop.
Download ZIP
Clojure recur example
Raw
recur.clj
(defn naive-sum [n]
(if (= n 0)
0
(+ n (naive-sum (dec n)))))
(defn recur-sum [n]
(loop [acc 0
cnt n]
(if (= cnt 0)
acc
(recur (+ acc cnt) (dec cnt)))))
recur.core=> (naive-sum 1000000)
#<StackOverflowError java.lang.StackOverflowError>
recur.core=> (recur-sum 1000000)
500000500000
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment