Написать функцию, выводящую список минимальных элементов подсписков. (HomeLisp)

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

Буду очень признателен.

Решение задачи: «Написать функцию, выводящую список минимальных элементов подсписков. (HomeLisp)»

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

(defun task (lst)
  (mapcar #'(lambda (x) (apply 'min x)) lst))
 
==> task
 
(task '((1 2 3) (6 4 0) (3 -7 3)))
 
==> (1 0 -7)

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

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

Выполняется применение функции mapcar к аргументу lst.
В качестве аргумента для функции mapcar используется лямбда-функция с именем x.
Лямбда-функция принимает один аргумент x и возвращает список, полученный в результате применения функции min к аргументу x.
Результатом работы функции task является список, полученный в результате выполнения функции mapcar.
Если выполнить функцию task с аргументом '((1 2 3) (6 4 0) (3 -7 3)), то результатом будет список (1 0 -7). Это связано с тем, что функция min применялась к каждому подсписку, и в результате возвращался минимальный элемент каждого подсписка.