Как создать список,чтобы после каждого элемента списка был вставлен его порядковый номер? - Lisp

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

Как создать список,чтобы после каждого элемента списка был вставлен его порядковый номер?

Решение задачи: «Как создать список,чтобы после каждого элемента списка был вставлен его порядковый номер?»

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

(defun task (lst)
  (apply 'append (mapcar 'list lst (range 0 (- (length lst) 1)))))
 
==> TASK
 
(task '(a b c d))
 
==> (A 0 B 1 C 2 D 3)

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

В данном коде определена функция TASK, которая принимает в качестве аргумента список LST. Внутри функции происходит использование двух других функций:

APPEND - это встроенная функция языка Lisp, которая объединяет два списка в один.
MAPCAR - это встроенная функция языка Lisp, которая применяет функцию к каждому элементу списка. В данном случае, функция MAPCAR применяется к списку LST и к последовательности чисел от 0 до N, где N - это длина списка LST минус 1. Результатом работы функции MAPCAR является список, в котором каждый элемент списка LST снабжён своим порядковым номером. Затем, результат работы функции MAPCAR передаётся в функцию APPEND в качестве первого аргумента. В качестве второго аргумента функции APPEND передаётся пустой список. Таким образом, функция APPEND добавляет в начало списка элементы с порядковыми номерами, а затем добавляет сами элементы списка LST. В итоге, функция TASK возвращает список, в котором после каждого элемента списка LST следует его порядковый номер. Пример использования функции TASK: (task '(a b c d)) Результат выполнения: (A 0 B 1 C 2 D 3)