Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@rootmos

rootmos/fib.scm Secret

Created June 6, 2017 15:32
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 rootmos/990c3455b0a63181cf877d547186e705 to your computer and use it in GitHub Desktop.
Save rootmos/990c3455b0a63181cf877d547186e705 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fib.scm
(import (rnrs))
(define fib
(lambda (n)
(cond
((eq? 1 n) 1)
((eq? 2 n) 1)
(else (+ (fib (- n 1)) (fib (- n 2)))))))
(display (fib 45))
; > /usr/bin/time scheme --script fib.scm
; 7.39user 0.01system 0:07.40elapsed 99%CPU (0avgtext+0avgdata 39180maxresident)k
; 0inputs+0outputs (0major+9387minor)pagefaults 0swaps
; > /usr/bin/time scheme --program fib.scm > /dev/null
; 5.92user 0.02system 0:05.95elapsed 99%CPU (0avgtext+0avgdata 39432maxresident)k
; 0inputs+0outputs (0major+8927minor)pagefaults 0swaps
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment