remv

Conformance: R5.91RS Scheme

Purpose: Remove atoms from lists.

Arguments:
X - atom to remove
A - list

Model:

(define (remv x a)
  (cond ((null? a) '())
    ((eqv? x (car a)) (cdr a))
    (else (cons (car a) (remove x (cdr a))))))

Implementation:

(define (remv x a)
  (filter (lambda (y)
            (not (eqv? x y)))
          a))

Example:

(remv 3 '(1 2 3 1 2 3)) 
=> (1 2 1 2)

See also:
remq, remv, memv, eqv?.