odd-trampoline.clj

(defn my-odd? [n]
  (letfn [(odd?? [n]
            (if (zero? n)
              false
              #(even?? (dec n))))
          (even?? [n]
            (if (zero? n)
              true
              #(odd?? (dec n))))]
    (trampoline odd?? n)))

(do (println (my-odd? 10))
    (println (my-odd? 100))
    (println (my-odd? 1000))
    (println (my-odd? 10000))
    (println (my-odd? 100000)))