SketchyLISP Reference |
Copyright (C) 2007 Nils M Holm |
<<[remp] | [Index] | [remv]>> |
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)
<<[remp] | [Index] | [remv]>> |