Сложить все нечетные элементы списка - Lisp

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

Добрый день. Помогите пожалуйста решить задачу, т.к. я в Лиспе полный ноль, а предмет нужно сдать в кратчайшее время. Задача, я так предполагаю, достаточно простая: необходимо сложить все нечетные элементы списка. Заранее очень Вам признателен за возможные ответы!

Решение задачи: «Сложить все нечетные элементы списка»

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

(defun sum-odd (a-list)
  (apply #'+ (remove-if-not #'oddp a-list)))

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

В данном коде:

Создаётся функция sum-odd, которая принимает один аргумент a-list.
Функция apply вызывается с оператором сложения #'+ и списком a-list в качестве аргументов.
Функция remove-if-not вызывается с предикатом oddp и списком a-list в качестве аргументов.
Результат функции remove-if-not передаётся в функцию apply для сложения всех нечётных элементов списка.
Результат функции apply возвращается в качестве значения функции sum-odd. Список нечётных элементов будет получен без использования цикла.