Можно ли организовать циклическую обработку данных с использованием форм- ветвлений, не используя специальные формы-циклы? - Lisp

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

Можно ли организовать циклическую обработку данных с использованием форм- ветвлений, не используя специальные формы-циклы?

если да, то как?, если нет, то почему?

Решение задачи: «Можно ли организовать циклическую обработку данных с использованием форм- ветвлений, не используя специальные формы-циклы?»

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

(defun sum-list (x)
   (prog (s)
      (setq s 0)
@loop (cond ((null x) (return s)))
      (setq s (+ s (car x)))
      (setq x (cdr x))
      (go @loop)
   ))
 
 
==> sum-list
 
(sum-list '(1 2 3 4 5))
 
==> 15

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

В данном коде реализована функция sum-list, которая принимает в качестве аргумента список x и возвращает сумму всех его элементов. Функция реализована с использованием цикла, который выполняется пока список x не станет пустым. В начале цикла инициализируется переменная s равной 0, которая будет использоваться для хранения суммы. Далее, в цикле, происходит следующее: — Если список x пустой, то цикл завершается и возвращается значение переменной s. — Переменная s обновляется, и к ней прибавляется значение первого элемента списка x. — Первый элемент списка x удаляется (то есть, возвращается список x, начиная с первого элемента, но без него самого), и цикл продолжается. Для понимания кода можно использовать следующие номера:

Функция sum-list объявлена на строке 1.
В строке 3 инициализируется переменная s равной 0.
С 4 по 7 строки включительно происходит цикл.
На 8 строке проверяется условие завершения цикла.
На 9 строке обновляется значение переменной s.
На 10 строке происходит обновление списка x.
На 11 строке выполняется переход к началу цикла.
Цикл завершается, когда список x становится пустым.
На 12 строке возвращается значение переменной s.
В строке 13 вызывается функция sum-list с аргументом '(1 2 3 4 5).
Возвращенное значение функции выводится на экран.
В строке 15 возвращается значение 15.