Rekursive Funktionen, die n Elemente einer Liste nach links und rechts in Lisp drehen

Question

Die Funktion hat 1 Parameter, eine ganze Zahl. Zum Beispiel rot-left(2 '(1 2 3 4 5)) sollte (3 4 5 1 2) zurückgeben und rot-right(2 '(1 2 3 4 5)) sollte (5 4 1 2 3) zurückgeben.

Ich habe das versucht ... es funktioniert nicht, aber was es tun soll, ist die letzten n Elemente einer Liste zu einer leeren Liste hinzufügen.

(defun rot_left (n l) 
    (if (zerop n) 
     '() 
     (append (last l) 
       rot-left ((- n 1) (cdr l))))) 

Answer 1

werde ich eine Lösung geben, dass unter der Annahme, wenn die Funktion rot-right sollte die Elemente der Liste von rechts nach links drehen, (rot-right 2 '(1 2 3 4 5))(4 5 1 2 3) produzieren sollte und nicht (5 4 1 2 3).

(defun rot-left(n l) 
    (append (nthcdr n l) (butlast l (- (length l) n)))) 

(defun rot-right(n l) 
    (rot-left (- (length l) n) l)) 

(defvar a '(1 2 3 4 5)) 

(rot-left 2 a) ; produces (3 4 5 1 2) 
(rot-right 2 a) ; produces (4 5 1 2 3)