akonring

;; The direct style recursion faculty function
(defn fac-ds [n]
  (if (zero? n) 1
      (* n (fac (dec n)))))

(fac 5)
;; => 120

;; The tail recursive faculty function
(defn fac-tail [n]