ruby--ruby/sample/fib.scm

9 lines
111 B
Scheme

(define (fib n)
(if (< n 2)
n
(+ (fib (- n 2)) (fib (- n 1)))))
(display (fib 20))
(newline)
(quit)