Система уравнений рекурсией - Lisp

Формулировка задачи:

Решить такую вот систему рекурсией спасибо)

Решение задачи: «Система уравнений рекурсией»

Листинг программы

(defun f (n)
  (cond ((minusp n) (raiseerror "Ошибка!"))
        ((<= n 2) n)
        (t (+ (f (- n 1)) (f (- n 2))))))
 
 
==> f
 
(f 6)
 
==> 13

Объяснение кода листинга программы

В коде определена функция с именем f. Она принимает один аргумент n. Если n меньше или равно 2, то функция возвращает n. В противном случае, функция вызывает саму себя, но уже с аргументами n-1 и n-2, и возвращает сумму этих двух вызовов. Код выводит значение функции при аргументе 6, которое равно 13.