Skip to content

Instantly share code, notes, and snippets.

@richhickey

richhickey/gist:440102

Created June 16, 2010 03:11
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save richhickey/440102 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
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"
@ataggart
Copy link
Copy Markdown

ataggart commented Jun 16, 2010

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

@gnuvince
Copy link
Copy Markdown

gnuvince commented Jun 16, 2010

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

@gnuvince
Copy link
Copy Markdown

gnuvince commented Jun 16, 2010

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