Ротација на матрица на десно (butlast)

(defun rotiraj (matrica k)
    (cond
        ((null matrica) nil)
        (t (cons (pomosna (car matrica) k)(rotiraj (cdr matrica) k)))
        )
    )

(defun pomosna (matrica k)
    (cond
     ((= k 0) matrica)
     (t (pomosna (cons (car (reverse matrica))(butlast matrica))(- k 1))))
    )


(print (rotiraj '((b 3 a 4)(3 8 a b)(b a 3 0)) 3))