Skip to content

Instantly share code, notes, and snippets.

@ato

ato/scratch.clj

Created September 9, 2010 00:13
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 ato/571111 to your computer and use it in GitHub Desktop.
Save ato/571111 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
scratch.clj
(def fib (memoize
(fn [n]
(if (<= n 1) 1
(+ (fib (dec n))
(fib (- n 2)))))) )
(time (fib 50))
;; "Elapsed time: 0.046096 msecs"
;; => 20365011074
(time (fib 2000))
;; => StackOverflowError
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment