Skip to content

Instantly share code, notes, and snippets.

@richhickey

richhickey/gist:440102

Created June 16, 2010 03:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save richhickey/440102 to your computer and use it in GitHub Desktop.
Save richhickey/440102 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
;new num branch results
(defn fib [n]
(if (>= 1 n)
1
(+ (fib (dec n)) (fib (- n 2)))))
(time (fib 38))
"Elapsed time: 3716.828 msecs"
;note, no change to body
(defn ^:static fib ^long [^long n]
(if (>= 1 n)
1
(+ (fib (dec n)) (fib (- n 2)))))
(time (fib 38))
"Elapsed time: 380.448 msecs"
@berlinbrown
Copy link

Could you explain the syntax is that new?

@ataggart
Copy link

See http://clj-me.cgrand.net/2010/06/10/primitive-types-support-for-fns-coming-to-a-clojure-branch-near-you/

@gnuvince
Copy link

Greater than or equal? Shouldn't it be less than or equal?

@gnuvince
Copy link

Durrr, nevermind, you inverted the condition. Ignore me.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment