mirror of https://github.com/rusefi/bldc.git
11 lines
234 B
Common Lisp
11 lines
234 B
Common Lisp
|
(define fib
|
||
|
(lambda (n)
|
||
|
(let ((fib0 (lambda (n a b)
|
||
|
(if (= n 0) a
|
||
|
(if (= n 1) b
|
||
|
(fib0 (- n 1) b (+ a b)))))))
|
||
|
(fib0 n 0 1))))
|
||
|
|
||
|
|
||
|
(= (fib 10) 55)
|