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)

 


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