Числа Фибоначчи в Lisp

Пример для версий Corman Common Lisp 3.0, clisp 2.47, gcl 2.6.6

Используется рекурсивное определение чисел Фибоначчи. Часть finally макроса loop выполняется после конца цикла.

(defun fibonacci (n)
    (if (< n 3)
        1
        (+ (fibonacci (- n 1)) (fibonacci (- n 2))) ))

(loop for i from 1 to 16
    do (format t "~D, " (fibonacci i))
    finally (format t "...~%"))

Числа Фибоначчи в Lisp

Комментарии