Rotáciu zoznamu o 1 prvok doľava možno realizovať v hlavnej funkcií pomocou funkcií append, first, rest a cons.

; Hlavná funkcia.
; Predpokladáme, že zoznam je neprázdny. Ak by mal byť aj prázdny,
; treba to v rotl ošetriť.

(defun rotl (zoz)
 (append (rest zoz) (cons (first zoz) NIL))
)

; Príklady:
(rotl '(1 2 3 4 5)) ; -> (2 3 4 5 1)
(rotl '(1 2)) ; -> (2 1)
(rotl '(7))   ; -> (7)

Autori

[ ZADANIE | AKO ZAČAŤ | RIEŠENIE ] Posledná aktualizácia 4. 9. 2001