Разработать программу используя функции работы с векторами и списками. Размерность и элементы массива необходимо читать с клавиатуры и заполнять случайными числами (должно быть две отдельные функции).

Задание:
Отобразить симметрично сектора матрицы лежащие слева и справа от главной и побочной диагонали.


Например есть матрица:
1 2 3
4 5 6
7 8 9
Должно поменять 4 и 6 местами так как они находятся слева і справа от пересечения диагоналей.
1 2 3
6 5 4
7 8 9

;;Функция генерации списка случайными значениями.

(defun random-list (size)

(let ((lst '()))

(dotimes (i size)(push (random 25) lst))lst))

 

;;Создание квадратной матрицы и заполнение ее случайными значениями

(defun random-square-matrix (n m)

(let ((res nil))

(dotimes (j n)

(push (random-list m) res))

(reverse res)))