fib.scm
[
plain text
]
(
define
(
fib
n) (
if
(< n 2) n (+ (fib (- n 2)) (fib (- n 1))))) (display (fib 20)) (newline) (quit)