删除嵌套重复项的方案

所以我在方案中编程并创建了一个删除重复项的函数，但它不适用于嵌套。我真的想不出一个好方法来做到这一点，有没有办法修改我当前的代码并简单地使其与嵌套一起工作？清单？

这是我的代码

(define (duplicates L)
  (cond ((null? L)
         '())
        ((member (car L) (cdr L))
         (duplicates (cdr L)))
        (else
         (cons (car L) (duplicates (cdr L))))))

因此，您的过程会跳过列表其余部分中存在的元素，以便(duplicates '(b a b))变成(a b)并不是(b a)。它适用于平面列表，但在树中，该列表中可能没有第一个元素，而是一个列表。保留第一次出现并将未来元素列入黑名单要容易得多。由于您已标记，以下代码使用哈希racket。在没有哈希的情况下执行此操作需要多值返回或突变。

(define (remove-duplicates lst)
  (define seen (make-hasheqv))
  (define (ins val)
    (hash-set! seen val #t)
    val)
  (let aux ((lst lst))
    (cond ((null? lst) lst)
          ((not (pair? lst)) (if (hash-has-key? seen lst) '() (ins lst)))
          ((pair? (car lst)) (let ((a (aux (car lst))))
                               (if (null? a) ; if the only element is elmininated
                                   (aux (cdr lst))
                                   (cons a (aux (cdr lst))))))
          ((hash-has-key? seen (car lst)) (aux (cdr lst)))
          (else (cons (ins (car lst)) ; NB! order of evaluation in Racket is left to right but not in Scheme! 
                      (aux (cdr lst)))))))

;; test
(remove-duplicates '(a b a))                 ; ==> (a b)
(remove-duplicates '(a (a) b a))             ; ==> (a b)
(remove-duplicates '(a (b a) b a))           ; ==> (a (b))
(remove-duplicates '(a b (a b) b a))         ; ==> (a b)
(remove-duplicates '(a (a . b) b a))         ; ==> (a b)
(remove-duplicates '(a b (a b . c) b a . d)) ; ==> (a b c . d)