Написать написать функцию, возвращающую номер минимального элемента в простом списке - Lisp

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

написать функцию, возвращающую номер минимального элемента в простом списке.

Решение задачи: «Написать написать функцию, возвращающую номер минимального элемента в простом списке»

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

(defun min-pos (lst)
  (let* ((min (apply 'min lst))
         (lm  (mapcar 'list lst (range 1 (length lst)))))
   (mapcar 'cadr (remove-if-not #'(lambda (x) (= (car x) min)) lm))))
 
==> min-pos
 
(min-pos '(-10 5 0 -100 10))
 
==> (4)
 
(min-pos '(-10 5 0 -100 10 6 7 -100 8))
 
==> (4 8)

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

В коде определена функция min-pos. Она принимает один аргумент lst, который должен быть списком. Внутри функции создаются две переменные:

min — в ней будет храниться минимальный элемент из списка lst.
lm — в ней будет создан список кортежей, в которых сначала будет указан номер элемента из списка lst, а затем его значение. Сначала с помощью функции apply в переменной min вычисляется минимальный элемент из списка lst. Затем с помощью функции mapcar и функции list создается список кортежей, в которых сначала указывается номер элемента из списка lst, а затем его значение. Далее с помощью функции remove-if-not и лямбда-функции, которая сравнивает первый элемент каждого кортежа со значением переменной min, из списка lm удаляются кортежи, у которых первый элемент не равен min. В конце с помощью функции mapcar и функции cadr из списка кортежей, полученного после удаления ненужных кортежей, извлекаются значения (номера элементов и их значения), которые возвращаются в качестве результата работы функции min-pos.