Споредна

(defun sporedna (lista)
   (cond
       ((eq (dali_kvadratna lista lista) t)(zemi_sporedna lista))
       (t nil)
       )
    )

;(defun broj_redici (lista)
 ;   (cond
  ;      ((null lista) 0)
   ;     (t(+ 1 (broj_redici (cdr lista))))
    ;    )
;) ;;kolku podlisti

(defun zemi_sporedna (lista)
    (cond
        ((null lista) nil)
        (t(cons (nth (- (list-length lista) 1) (car lista))(zemi_sporedna (cdr lista))))
        )
)

(defun dali_kvadratna(lista lista_kopija)
    (cond
        ((null lista_kopija) t)
        ((eq(list-length (car lista))(list-length (car lista_kopija)))(dali_kvadratna lista (cdr lista_kopija)))
        (t nil)
        )
    )


;(print (broj_redici '((1 2 3)(4 5 6)(7 8 9))))
;(print (zemi_sporedna '((1 2 3)(4 5 6)(7 8 9))))
; (print (sporedna '((a b d c)(e f g)(i j k)))) ;nil
 (print (sporedna '((a b c d)(e f d g)(i d j k)(i d j k))))