XPost: comp.lang.lisp
Pascal J. Bourguignon wrote:
(let ((a (list 1 2 3 4)))
(remove-if (function evenp)
(mapcar (lambda (x) (1+ (* 3 x))) a)))
Gauche Scheme
(let1 a '(1 2 3 4)
(filter odd? (map~ x (+ (* 3 x) 1) a)))
===>
(7 13)
Given:
(define-syntax map~
(syntax-rules ()
[(_ (v0 v1 ...) expr seq0 seq1 ...)
(map (lambda(v0 v1 ...) expr) seq0 seq1 ...) ]
[(_ v expr seq)
(map (lambda(v) expr) seq) ] ))
--
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)