Sujet : Re: Strange issue with packages
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 22. Jun 2025, 17:22:47
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <1039akl$khbd$1@dont-email.me>
References : 1
User-Agent : XanaNews/1.18.1.6
B. Pym wrote:
Pascal Costanza wrote:
(defun count (element list)
(loop for x in list
count (eql x element)))
Scheme
(count (cut eqv? <> 'm) '(m n o p m a k m o))
===>
3
Using "is":
(count (is 'm) '(m n o p m a k m o))
Given:
(define is
(case-lambda
[(x) (lambda(y) (equal? y x))]
[(pred x) (lambda(y) (pred y x))]
[(key pred x) (lambda(y) (pred (key y) x))]))
Re: Strange issue with packages
Re: Strange issue with packages