Удалить элементы первого списка по номерам второго списка без использования вспомогательных функций - Lisp

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

Может кто знает классический вид функции удаление элементов списка по номерам второго списка.Важно то,что нельзя использовать вспомогательные функции и циклы.

Решение задачи: «Удалить элементы первого списка по номерам второго списка без использования вспомогательных функций»

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

(defun drop (v w &optional (n 0)
                 &aux (q (cdr w))
                      (m (1+ n)))
  (cond
    ((some 'null (list v w)) w)
    ((find n v) (drop (remove n v) q m))
    ((cons (car w) (drop v q m)))))

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

В данном коде определён функцией drop с тремя аргументами v, w и n. Если n не равно 0, то оно перенаправляется в w. Далее в w удаляются элементы с указанными номерами, и результат выводится на экран. Если n равно 0, то выводится список v. Вот список номеров, названий и значений переменных в порядке их использования в коде:

v — список, элементы которого будут удалены
w — список, из которого будут удалены элементы
n — номер элемента, который будет удален
q — хвост списка w
m — номер следующего элемента для удаления Список номеров 1-5 относится к первому использованию функции drop. В этом случае, если n не равно 0, то выполняется следующая последовательность действий:
w присваивается значение cdr w, то есть хвост списка w
В w удаляются элементы с номерами, указанными в n
Результат присваивается q
m присваивается значение 1+ n, то есть номер следующего элемента для удаления Список номеров 6-9 относится ко второму использованию функции drop внутри условного оператора cond. В этом случае, если n не равно 0, то выполняется следующая последовательность действий:
w присваивается значение remove n v, то есть список v без элементов с номерами, указанными в n
В w удаляются элементы с номерами, указанными в n
Результат присваивается q
m присваивается значение 1+ n, то есть номер следующего элемента для удаления Список номеров 10-14 относится к третьему использованию функции drop внутри условного оператора cond. В этом случае, если n не равно 0, то выполняется следующая последовательность действий:
w присваивается значение cons (car w) (drop v q m), то есть список w с первым элементом, удаленным элементом и оставшимися элементами
В w удаляются элементы с номерами, указанными в n
Результат присваивается q
m присваивается значение 1+ n, то есть номер следующего элемента для удаления Если n равно 0, то выполняется следующая последовательность действий:
w присваивается значение v, то есть список v
Результат выводится на экран