member-if?
Der Aufruf (member-if? p l) ergibt dann einen Wert ungleich nil, wenn das Prädikat p für ein Element von l erfüllt ist.
Das Prädikat member-if? basiert auf cond, null?, first und rest:
(setq member-if?
(lambda (p l)
(cond
((null? l) nil)
((p (first l)) l)
((member-if? p (rest l))))))
Das Prädikat member-if? basiert auf cond, null?, first und rest:
(setq member-if?
(lambda (p l)
(cond
((null? l) nil)
((p (first l)) l)
((member-if? p (rest l))))))