如何删除列表方案中的所有重复元素？

Question

我的尝试是，

(define (remove-dup lst)
  (cond ((null? lst) '())
        ((null? (cdr lst)) (car lst))
        ((equal? (car lst) (car (cdr lst))) (remove-dup (cdr lst)))
        (else (cons (car lst) (remove-dup (cdr lst))))
        )

  )

我的列表是(abcaaccc) 我想要的是(abc)。有什么想法吗？

谢谢，

Answer 1

我将通过循环使用由可见元素构建的第二个列表来解决此问题。如果这是家庭作业，我会为给你这个而感到难过 - 理解递归的工作原理比仅仅得到正确的答案更重要。

(define (remove-dup ls)
  (let loop ((ls ls) (seen '()))
     (cond
       ((null? ls) '())
       ((memq (car ls) seen) (loop (cdr ls) seen))
       (else (cons (car ls) (loop (cdr ls) (cons (car ls) seen))))))

更新以适应您的评论 - 这可能不是最干净的解决方案，但应该让您了解它的工作原理。

(define (rdup ls)
  (let loop ((ls ls) (current #f)) ; this is bad coding style, a "magic" variable you don't expect to see in your list
     (cond
       ((null? ls) '())
       ((null? (cdr ls)) (if (eq? (car ls) current) '() ls))
       ((eq? (car ls) (cadr ls)) (loop (cdr ls) (car ls)))
       ((eq? (car ls) current) (loop (cdr ls) current))
       (else (cons (car ls) (loop (cdr ls) (car ls)))))))

Answer 2

R5RS+SRFI1

(define (remove-duplicates lst)
    (fold-right (lambda (f r)
             (cons f (filter (lambda (x) (not (equal? x f))) r))) '() lst))

Answer 3

使用 SRFI 1，您可以直接使用 delete-duplicates 或 delete-duplicates!：http://srfi.schemers.org/srfi-1/srfi-1.html#delete-duplicates