qse/ase/cmd/awk/lisp/fib.lsp
2008-03-21 03:49:53 +00:00

8 lines
101 B
Plaintext

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