SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[remq] | [Index] | [replace]>> |
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?.
<<[remq] | [Index] | [replace]>> |