Skip to content

Instantly share code, notes, and snippets.

@jaidhyani

jaidhyani/gist:639430

Created October 21, 2010 21:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jaidhyani/639430 to your computer and use it in GitHub Desktop.
Save jaidhyani/639430 to your computer and use it in GitHub Desktop.
Download ZIP
Hyperoperators
Raw
gistfile1.clj
(defn h ( [n] (cond
(= n 1) +
:else ( fn
( [ & x] (
reduce
( fn ([a,b] (
reduce
( f (- n 1) )
(repeat b a) ) ) )
x
) )
)
)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment