Základom je klasická schéma filter.

(defun zrus (sv zoz)
 (cond ((null zoz) NIL)
       ((equal sv (first zoz)) (zrus sv (rest zoz)))
       (T (cons (first zoz) (zrus sv (rest zoz))))
 )
)

; Príklady:
(zrus 'x '(1 2 x 3 x))           ; -> (1 2 3)
(zrus '(1 2) '(1 2 (1 2) (1 3))) ; -> (1 2 (1 3))

Autori

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