Skip to content

Instantly share code, notes, and snippets.

@athos

athos/tramp.clj

Last active December 16, 2015 07:08
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save athos/5396189 to your computer and use it in GitHub Desktop.
Save athos/5396189 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tramp.clj
(declare odd?)
(defn even? [x]
(if (== 0 x)
true
#(odd? (- x 1))))
(defn odd? [x]
(if (== 1 x)
true
#(even? (- x 1))))
(trampoline even? 10)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment