sporedna - prv kolokvium 2014 - t2g1

 (35 п) Дефинирај функција sporedna, која како аргумент прима матрица од ред m

n
претставена во облик на листа од m листи со по n елементи. Ако матрицата е квадратна (m = n),
функцијата ја враќа нејзината споредна дијагонала, во спротивно враќа NIL.
Пример: (sporedna '((a b c)(e f g)(i j k)))  (c f i)
 (sporedna '((a b c d)(e f g h)(i j k l)))  NIL




(defun sporedna (matrica)
    (cond
        ((equal (dali_kvadratna matrica matrica) t)(pomosna matrica (- (length (car matrica)) 1)))
        (t nil)
        )
    )


(defun pomosna (matrica brojac)
    (cond
        ((null matrica) nil)
        (t (cons (nth brojac (car matrica))(pomosna (cdr matrica)(- brojac 1))))
        )

    )



(defun dali_kvadratna (matrica original_matrica)
    (cond
        ((null matrica) t)
        ((equal (length (car matrica))(length original_matrica))(dali_kvadratna (cdr matrica) original_matrica))
        (t nil)
        )

    )

(print(sporedna '((a b c d)(e f g h)(i j k l))))