Question

我知道如何使函数删除所有重复项，但这不是我的问题。我希望保留一切独特/没有重复的内容。

如果有人可以在他们的回复中使用抽象/高阶函数，那将是特别好的

所以这里有一些例子;

＆＃39;（1 1 1 2 2 2 3 4 5） - ＆gt; ＆＃39;（3 4 5）

＆＃39;（1 1 1 2 2 2） - ＆gt;空

＆＃39;（2 3 4） - ＆gt; ＆＃39;（2 3 4）

Answer 1

这是使用bagify和iterations and comprehensions在Racket中的惯用O(n)解决方案。诀窍在于计算每个元素的出现次数，并且只计算那些元素的出现次数：

(define (bagify lst)
  (foldl (lambda (key ht)
           (hash-update ht key add1 0))
         #hash() lst))

(define (non-dups lst)
  (for/list ([key+value (in-hash-pairs (bagify lst))]
             #:when (= (cdr key+value) 1))
    (car key+value)))

例如：

(non-dups '(1 1 1 2 2 2 3 4 5))
=> '(3 4 5)

(non-dups '(1 1 1 2 2 2))
=> '()

(non-dups '(2 3 4))
=> '(2 3 4)

Answer 2

#lang racket

(define (elements xs)
  (set->list (list->set xs)))

(define (duplicates xs)
  (elements
   (for/fold ([xs xs]) ([u (elements xs)])
     (remove u xs))))

(define (uniques xs)
  (remove* (duplicates xs) xs))

(define (remove-duplicates xs)
  (remove* (duplicates xs) xs))

(define (remove-non-duplicates xs)
  (remove* (uniques xs) xs))

(define xs  '(1 1 1 2 3 4 4))
(uniques xs)
(duplicates xs)
(remove-duplicates xs)
(remove-non-duplicates xs)

输出：

'(2 3)
'(4 1)
'(2 3)
'(1 1 1 4 4)

删除所有但非重复的（球拍）

2 个答案: