qse/ase/cmd/awk/lisp/fib.lsp

8 lines
101 B
Plaintext
Raw Normal View History

2008-01-01 07:02:50 +00:00
(define fib
(lambda (n)
(if (< n 2)
1
(+ (fib (- n 1))
(fib (- n 2))))))
(fib 20)