Квадратно N

(defun kvadratnoN (lista)
    (cond
        ((eq (daliKvadratna lista lista 0) t)(append (levo lista)(trim lista)(desno lista)))
    ))

(defun pom (lista brojac)
    (cond
        ((null lista) nil)
        ;((eq brojac (- (list-length lista) 1)) nil)
        (t (cons (nth brojac (car lista))(pom (cdr lista)(+ 1 brojac))))
        )
    )

(defun trim (lista)
    (cons (car(cdr (pom lista 0)))(butlast (cdr (cdr (pom lista 0)))))
    )



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

(defun desno (lista)
    (cond
        ((null lista) nil)
        (t (append (list (car (reverse (car lista))))(desno (cdr lista)))
        )))

(defun daliKvadratna (lista pomosna_lista brojac)
 (cond
  ((and (null lista)(eq (list-length pomosna_lista) brojac) t))
  ((eq (list-length (car lista))(list-length pomosna_lista))(daliKvadratna (cdr lista) pomosna_lista (+ 1 brojac)))
  (t nil)
 ))

(print (kvadratnoN '((5 4 3 2)(a b c d)(v e f g)(11 8 1 7))))