qse/ase/test/awk/lisp/fib.lsp
2008-01-01 07:02:50 +00:00

8 lines
101 B
Plaintext

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