source: project/chicken/benchmarks/fib.scm @ 4232

Last change on this file since 4232 was 4232, checked in by felix winkelmann, 13 years ago

various fixes, alexpander update

File size: 115 bytes
Line 
1;;; fib.scm
2
3(define (fib n)
4  (if (< n 2)
5      n
6      (+ (fib (- n 1)) (fib (- n 2))) ) )
7
8(time (pp (fib 40)))
Note: See TracBrowser for help on using the repository browser.