Найти наибольший элемент матрицы 4х4 - Lisp

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

найти наибольший элемент матрицы 4х4.

Решение задачи: «Найти наибольший элемент матрицы 4х4»

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

(defun task-5 (matr)
  (apply 'max (mapcar #'(lambda (x) (apply 'max x)) matr)))
 
==> task-5
 
(task-5 '((1 2 3 4) (4 3 2 1) (0 7 8 4) (2 5 1 4)))
 
==> 8

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

В данном коде определен пользовательский функтор task-5, который принимает на вход матрицу 4х4. Внутри функции происходит следующее:

С помощью функции apply, максимальный элемент матрицы находится в соответствии с заданным условием.
В качестве начальной точки для поиска максимума используется результат работы функции mapcar.
Функция mapcar применяет к каждому элементу матрицы (который является списком из 4 элементов) анонимную функцию (x) (представленную в виде замыкания), которая в свою очередь с помощью функции apply находит максимум в списке.
Результатом работы функции task-5 является число 8, которое является максимальным элементом матрицы ((1 2 3 4) (4 3 2 1) (0 7 8 4) (2 5 1 4)).