Квадратно И

(defun kvadratnoI (lista)(cond
    ((eq (daliKvadratna lista lista 0) t)(append (levo lista)(reverse (dijagonala_skratena lista))(desno lista)))
 ))

(defun levo (lista)
 (cond
  ((null lista) nil)
  (t (cons (car (car lista))(levo (cdr lista))))
 )
)

(defun desno (lista)
 (cond
  ((null lista) nil)
  (t (append (list(car (reverse (car lista))))(desno (cdr lista))))
 ))
(defun dijagonala (lista brojac)
 (cond
    ((null lista) nil)
    (t (cons (nth brojac (reverse (car lista)))(dijagonala (cdr lista)(+ 1 brojac))))
 ))

(defun dijagonala_skratena (lista)
    (cdr (butlast (dijagonala lista 0)))
    )


(defun daliKvadratna (lista pomosna_lista brojac)
 (cond
  ((and (null lista)(eq brojac (list-length pomosna_lista))) t)
  ((eq (list-length (car lista))(list-length pomosna_lista))(daliKvadratna (cdr lista) pomosna_lista (+ 1 brojac)))
  (t nil)
 )
)
(print (kvadratnoI '((5 4 3 2)(a b c d)(v e f g)(11 8 1 7)))) ;-> (5 A V 11 E C 2 D G 7)