Рекурсивные алгоритмы функций - Lisp

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

Алоха. Нужна помощь: Пусть дана вещественная квадратная матрица порядка 2n. Получите новую матрицу, переставляя ее блоки размером n так, как показано на рисунке. Для обмена четырех заданных фрагментов матрицы напишите функцию. Заранее спасибо.

Решение задачи: «Рекурсивные алгоритмы функций»

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

(defun transform (matr)
 (let* ((2n (length matr))
        (n (/ 2n 2))  
        (m11 nil)
        (m12 nil)
        (m21 nil)
        (m22 nil))
       (dolist (row matr t)
          (if (< (length m11) n) 
              (progn 
                (push (subseq row 0 n) m11)
                (push (subseq row n)   m12))
              (progn 
                (push (subseq row 0 n) m21)
                (push (subseq row n)   m22))))
        (append (mapcar 'append (reverse m22) (reverse m21))
                (mapcar 'append (reverse m12) (reverse m11)))))

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

В данном коде реализована функция TRANSFORM, которая принимает на вход матрицу MATR. Цель функции — разделить матрицу на две диагональные части и вернуть их в виде списков.

Вычисляется размерность матрицы N и разбивается на две равные части K — размерность первой диагональной части.
Создаются пустые списки M11, M12, M21, M22 для хранения соответствующих частей матрицы.
Происходит итерация по строкам матрицы MATR.
Если длина списка M11 меньше K, то добавляем первые K элементов текущей строки в M11.
Если длина списка M11 равна K, то добавляем оставшиеся элементы текущей строки в M12.
Если длина списка M21 меньше K, то добавляем первые K элементов текущей строки в M21.
Если длина списка M21 равна K, то добавляем оставшиеся элементы текущей строки в M22.
Если длина списков M11 и M12 равна K, то объединяем их в один список с помощью функции APPEND.
Если длина списков M21 и M22 равна K, то объединяем их в один список с помощью функции APPEND.
Возвращаем результат в виде двух списков: первый — это объединение M22 и M21, второй — это объединение M12 и M11.