Skip to content

Instantly share code, notes, and snippets.

@condotti

condotti/trampoline.clj

Created May 19, 2011 08:47
Show Gist options
  • Save condotti/980422 to your computer and use it in GitHub Desktop.
Save condotti/980422 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
trampoline.clj
; trampolineを書けって問題だと思ったら違ったのね
; せっかくだから書いたtrampolineをメモしとこう
(defn my-trampoline [f & args]
((fn [f] (if (fn? f) (recur (f)) f)) (apply f args)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment