mirror of https://github.com/rusefi/bldc.git
10 lines
170 B
Common Lisp
10 lines
170 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 23)
|