rotiraj-K-L-Matrica - prv kolokvium 2014 - t1g1

) Дефинирај функција rotiraj-K-L-Matrica, која прима 2 аргумента: природен број k и
матрица од ред m x n (m, n > 1) претставена во облик на листа од m листи со по n елементи.
Функцијата треба да ја враќа матрицата која што се добива со циклично ротирање на колоните
на почетната матрица за k местa во лево.
Пример: (rotiraj-K-L-Matrica 0 '((b 3 a 4)(3 8 a b)(b a 3 0)))  ((b 3 a 4)(3 8 a b)(b a 3 0))
 (rotiraj-K-L-Matrica 3 '((b 3 a 4)(3 8 a b)(b a 3 0)))  ((4 b 3 a)(b 3 8 a)(0 b a 3))


(defun rotiraj-K-L-Matrica (k matrica)
    (cond
        ((null matrica) nil)
        (t (cons (edinecna k (car matrica) 0)(rotiraj-K-L-Matrica k (cdr matrica))))
        )

    )


(defun edinecna (k redica brojac)
    (cond
        ((= brojac k) redica)
        (t (edinecna k (append (cdr redica)(list (car redica)))(+ 1 brojac)))
        )
    )



(print(rotiraj-K-L-Matrica 3 '((b 3 a 4)(3 8 a b)(b a 3 0))))