Sujet : Re: Detele repeated in a list
De : HenHanna (at) *nospam* devnull.tb (HenHanna)
Groupes : comp.lang.lispDate : 22. Jul 2024, 04:56:39
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v7khp9$fidq$3@dont-email.me>
References : 1 2
User-Agent : Mozilla Thunderbird
On 7/20/2024 5:21 PM, B. Pym wrote:
B. Pym wrote:
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))
Actual result:
((8 7) 4 3 2 0)
Gauche doesn't have RemDup built in?