Сформирова из списка список-результат: первый эл-т — сумма всех элементов, второй — сумма хвоста и т.д. - Lisp

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

Снова нужна помощь добрых людей! Функция из исходного списка формирует список-результат: первый элемент — сумма всех элементов, второй — сумма элементов хвоста и т.д. Все функции нужно сделать, используя примитивные функции, ~~типо~~ типа car, cdr, без использования lambda и прочих сложных функций.

Решение задачи: «Сформирова из списка список-результат: первый эл-т — сумма всех элементов, второй — сумма хвоста и т.д.»

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

(defun task (lst)
  (cond ((null lst) nil)
        (t (cons (apply '+ lst) (task (cdr lst))))))
 
==> TASK
 
(task '(1 2 3))
 
==> (6 5 3)

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

В коде определена функция TASK, которая принимает в качестве аргумента список lst. Если lst равен null, то возвращается nil. В противном случае, к голове списка (первому элементу) добавляется результат вычисления всех элементов списка, а затем рекурсивно вызывается функция TASK для хвоста списка (cdr lst). Пример использования функции TASK: (task '(1 2 3)) Результат выполнения: (6 5 3)