Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
;;; (set! *warn-on-reflection* true)
;;; for more spectacular results
(defn fact [n]
(loop [n (long n) r 1]
(if (zero? n)
r
(recur (num (dec n)) (* r n)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.