mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 18:40:56 -08:00
10 lines
211 B
Common Lisp
10 lines
211 B
Common Lisp
;;; fibonacci
|
|
|
|
(defun fib (n)
|
|
(check-type n (integer 0 *))
|
|
(labels ((fib-aux (n f1 f2)
|
|
(if (zerop n)
|
|
f1
|
|
(fib-aux (1- n) f2 (+ f1 f2)))))
|
|
(fib-aux n 0 1)))
|
|
|