Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
;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

This comment has been minimized.

Copy link

commented Jun 16, 2010

Could you explain the syntax is that new?

@gnuvince

This comment has been minimized.

Copy link

commented Jun 16, 2010

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

@gnuvince

This comment has been minimized.

Copy link

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
You can’t perform that action at this time.