chibi-scheme/tests/run/lib/fib.scm
2015-06-21 23:14:38 +09:00

4 lines
78 B
Scheme

(define (fib n)
(if (< n 2)
1
(+ (fib (- n 1)) (fib (- n 2)))))