如何摆脱列表中的重复项，但保持顺序

Question

我在 DrRacket 中使用 Intermediate Student with Lambda，我想知道如何删除列表中的重复项，同时保持顺序。例如(remove-dup (list 2 5 4 5 1 2)) 将产生(list 2 5 4 1)。到目前为止，我有这个：

(define (remove-duplicates lst)
  (cond
    [(empty? lst) empty]
    [(member? (first lst) (rest lst)) 
     (remove-duplicates (rest lst))]
    [else (cons (first lst) (remove-duplicates (rest lst)))]))

，但是有一个问题，因为它没有保持顺序。有人可以指出我正确的方向吗？谢谢你的时间。

Answer 1

如果您的目标是让功能正常运行，而不是一些家庭作业问题，那么您无需做任何事情，只需使用remove-duplicates：

Welcome to Racket v5.2.
-> (remove-duplicates (list 2 5 4 5 1 2))
'(2 5 4 1)

Answer 2

这是解决方案：

(define (remove-duplicates lon)
  (foldr (lambda (x y) (cons x (filter (lambda (z) (not (= x z))) y))) empty lon))

Answer 3

老问题，但这是 J-Y 想法的实现。

(define (dup-rem lst)
  (cond
    [(empty? lst) empty]
    [else (cons (first lst) (dup-rem (filter (lambda (x) (not (equal? (first lst) x))) lst)))]))

Answer 4

SRFI-1 有delete-duplicates，尽管它效率低下。 （我对 Racket 不太熟悉，但肯定有 SRFI-1，而且来源...）

http://srfi.schemers.org/srfi-1/srfi-1.html#delete-duplicates

Answer 5

依次遍历列表，将每个元素插入哈希表或其他字典中。如果您尝试插入一个已经在哈希表中的元素，请不要将其添加到传出列表中。

Answer 6

您需要做的是在整个时间内以相反的顺序进行比较。您可以使用reverse 函数以相反的顺序返回列表。这样，您总是删除元素的第 2 次以上出现，而不是第一次出现。这是一个示例，但它使用的是 let 和 if 而不是 cond 表达式。

http://www.cs.bgu.ac.il/~elhadad/scheme/duplicates.html

祝你作业顺利:)

Answer 7

嗯，我最近刚参加了一场球拍考试，：/

“标准”remove-duplicates 工作正常，但我在 drRacket 中使用相当大，因此必须使用 (require racket/list) 加载它

这是另一种方式:)

使用突变（不是真正的球拍精神，但......它有效。）

    (define (set l)
        (define the-set '())
            (begin (for-each
                       (lambda (x)
                            (if (member x the-set)
                                #t
                            (set! the-set (cons x the-set))))
                       l)
                   (reverse the-set)))

希望这会有所帮助...干杯！

Answer 8

我不确定这是否是作业，但如果是的话，我会发布这个想法。如果没有告诉我，我可以在这里提出解决方案。

您需要跟踪您找到的独特物品，您可以使用辅助列表（如累加器）来跟踪您目前找到的物品。

每当您查看另一个项目时，请检查它是否在辅助列表中。如果没有添加到辅助列表中。

您最终会得到与您要查找的内容相反的顺序，因此您只需（反转...）它就会得到答案。