Re: Detele repeated in a list

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))