rotiraj-K-L-Matrica

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

)

(defun rotiraj (k L)
    (cond
        ((eq k 0) L)
        (t (rotiraj (- k 1) (append (cdr L) (list (car L)))))
    )
)



(print (rotiraj-K-L-Matrica 5 '((7 8 b 3 a 4)(3 8 a b)(b a 3 0)))) ;; ((4 7 8 B 3 A) (8 A B 3) (A 3 0 B))
(print (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))