Выручайте! Написать функцию, которая список ‘(a1 a2 a3 …aN) преобразует в сложный список (aN)…a3) a2) a1) - Lisp

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

Написать функцию, которая список ‘(a1 a2 a3 …aN) преобразует в сложный список ((((aN)…a3) a2) a1). Буду благодарен!

Решение задачи: «Выручайте! Написать функцию, которая список ‘(a1 a2 a3 …aN) преобразует в сложный список (aN)…a3) a2) a1)»

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

(defun xenna (w &aux (d (cdr w)))
  (if d `(,(xenna d) ,(car w)) w))
 
> (xenna '(a1 a2 a3 a4))
((((A4) A3) A2) A1)

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

В коде определена функция XENNA. При вызове функции XENNA с аргументом W, например, '(a1 a2 a3 a4), функция рекурсивно преобразует список, пока не будет получен список с одним элементом.

defun xenna (w &aux (d (cdr w))) - определяет функцию XENNA с аргументом W и дополнительной переменной D.
(if d(,xenna d) w))` - если D не равно NIL, то рекурсивно вызывается функция XENNA с аргументом D. В противном случае возвращается W.
(xenna d) - рекурсивный вызов функции XENNA с аргументом D.
(car w) - извлекается первый элемент списка W.
(cdr w) - извлекается остальная часть списка W, начиная со второго элемента.
(a1 a2 a3 a4) - пример списка, который передается в функцию XENNA.
(((A4) A3) A2) A1) - результат преобразования списка '(a1 a2 a3 a4)' функцией XENNA.