Пусть дана вещественная квадратная матрица порядка 2n

;; Разбиение матрицы 2n*2n на 4 блока n*n:
 
(defun div-matr (matr)
  (let* ((a11 nil) (a12 nil) (a21 nil) (a22 nil) (nn (length matr)) (n (\ nn 2))) 
    (iter (for row in matr) (for nrow from 1 to nn)
      (if (<= nrow n) 
         (progn 
               (collecting (subseq row 0 n) into a11)
               (collecting (subseq row n) into a12))
         (progn 
               (collecting (subseq row 0 n) into a21)
               (collecting (subseq row n) into a22))))
    (list a11 a12 a21 a22)))
 
==> div-matr
 
;; Проверка:
 
(div-matr '((1 2) (3 4)))
 
==> (((1)) ((2)) ((3)) ((4)))
 
(div-matr '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))
 
==> (((1 2) (5 6)) ((3 4) (7 8)) ((9 10) (13 14)) ((11 12) (15 16)))
 
;; Объединение пар матриц:
 
(defun unite-matr (m1 m2)
  (mapcar #'append m1 m2))
 
==> unite-matr
 
;; Проверка
 
(unite-matr '((1 2) (5 6)) '((3 4) (7 8)))
 
==> ((1 2 3 4) (5 6 7 8))
 
;; Решение 
 
(defun rotate (matr)
  (let* ((v (div-matr matr))
         (a11 (car v))
         (a12 (cadr v))
         (a21 (caddr v))
         (a22 (cadddr v)))
        (append (unite-matr a21 a11) (unite-matr a22 a12))))
 
==> rotate
 
;; Проверка:
 
(rotate '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))
 
==> ((9 10 1 2) (13 14 5 6) (11 12 3 4) (15 16 7 8))

(defun rotate-l (matr)
  (let* ((v (div-matr matr))
         (a11 (car v))
         (a12 (cadr v))
         (a21 (caddr v))
         (a22 (cadddr v)))
        (append (unite-matr a12 a22) (unite-matr a11 a21))))
 
==> rotate-l
 
(rotate-l '((1 2 3 4) (5 6 7 8) (9 10 11 12) (13 14 15 16)))
 
==> ((3 4 11 12) (7 8 15 16) (1 2 9 10) (5 6 13 14))