Sujet : Re: Detele repeated in a list
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 21. Jul 2024, 02:02:23
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v7hj6b$3ooop$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Pascal Costanza wrote:
(defun rem-duplicates (list)
(loop for (first . rest) on (append list list)
unless (member first (reverse rest) :test #'equal)
collect first))
Gauche Scheme
(define (rem-dups lst)
(fold
(lambda (x accum) (if (member x accum) accum (cons x accum)))
'()
lst))
(rem-dups '(0 2 3 4 (8 7) 3 2 0 (8 7)))
===>
(4 3 2 0 (8 7))