remq

Conformance: R5.91RS Scheme

Purpose: Remove symbols from lists.

Arguments:
X - symbol 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 (remq x a)
  (filter (lambda (y)
            (not (eq? x y)))
          a))

Example:

(remq 'z '(x y z x y z)) 
=> (x y x y)

See also:
remove, remv, memq.