speedtest.clj

  (ns speedtest)

(defn with-args
  "Count down from n, return 0"
  [n]
  (if (< 0 n)
    (recur (dec n))
    0))

(defn with-state
  "Count down from n, return 0"
  [n]
  (let [state (atom n)
        work (fn []
               (if (< 0 @state)
                 (do
                   (swap! state dec)
                   (recur))
                 0))]
    (work)))

;; speedtest> (time (with-args 1e8))
;; "Elapsed time: 1291.392 msecs"
;; 0
;; speedtest> (time (with-state 1e8))
;; "Elapsed time: 3027.813 msecs"
;; 0