1. Forum
  2. USENET
  3. comp.lang.scheme

  • Re: please review my new *working* code - now with 20% more oop!

    From B. Pym@Nobody447095@here-nor-there.org to comp.lang.lisp,comp.lang.scheme on Wed Aug 13 12:00:36 2025
    From Newsgroup: comp.lang.scheme

    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 --- Synchronet 3.21a-Linux NewsLink 1.2