Podobne ako v príklade vlozza . Prechádzame zoznam a počítame prvky (rekurzívne volania zo stále menším n), keď je n rovné 1 vieme, že sme na n-tom prvku. Ten nedáme na výstup, ale zvyšok zoznamu áno.
; Prvý prvok má index 1.
; Ak bude n mimo zoznamu, vráti sa pôvodný zoznam.
(defun zrusn (n zoz)
(cond ((null zoz) NIL)
((= n 1) (rest zoz))
(T (cons (first zoz) (zrusn (- n 1) (rest zoz))))
)
)
; Príklady:
(zrusn 2 '(a b c)) ; -> (a c)
(zrusn 7 '(a b c)) ; -> (a b c)