Pascal J. Bourguignon wrote:
(let ((a (list 1 2 3 4)))
(remove-if (function evenp)
(mapcar (lambda (x) (1+ (* 3 x))) a)))
Scheme:
(let ((a '(1 2 3 4)))
(filter odd?
(map (lambda (x) (+ 1 (* 3 x))) a)))
===>
(7 13)
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)