fizzbuzz.clj

(declare fizz)
(declare buzz)

(defn fizz-buzz-1 [n]
  (when (> n 0)
    (print n " = ")
    #(fizz n)))

(defn fizz [n]
  (if (zero? (rem n 3))
    (print 'fizz))
  #(buzz n))

(defn buzz [n]
  (if (zero? (rem n 5))
    (print 'buzz))    
  (println)
  #(fizz-buzz-1 (dec n)))

(def fizz-buzz (partial trampoline fizz-buzz-1))

;; (fizz-buzz 10000) ; StackOverflowしないぜ！