将两个列表合并为一个列表 Racket

Question

我有一个问题：

我有两个数字列表，例如 (list1 3 6 7) 和 (list2 1 6 4 7)。现在我必须将两者结合到（list3 1 3 4）中。所以 6 和 7 都在 list1 和 list2 中。 List3 包含所有仅出现一次的数字。如果不只是问我，我希望你明白我的意思：s！ 这是我的开始：

(define (diff list1 list2)
  (cond
    [(empty? list1) list2] ;; If list1 was empty return directly list2
    [(empty? list2) list1] ;; If list2 was empty return directly list1
    [else
      (???

我知道我必须将第一个 list1 与 list2 中的每个数字进行比较，然后再次递归。但是我该如何编程呢？

Answer 1

这是一个不同的、希望不那么棘手的实现。 （它是 O(n)，但它需要对两个传入列表进行排序；相比之下，Óscar 的实现不需要排序列表，但它是 O(n²)。）

(define (diff lhs rhs)
  (let loop ((result '())
             (lhs lhs)
             (rhs rhs))
    (cond ((null? lhs) (append-reverse result rhs))
          ((null? rhs) (append-reverse result lhs))
          (else (let ((a (car lhs))
                      (b (car rhs)))
                  (cond ((< a b) (loop (cons a result) (cdr lhs) rhs))
                        ((< b a) (loop (cons b result) lhs (cdr rhs)))
                        (else (loop result (cdr lhs) (cdr rhs)))))))))

例子：

> (diff '(3 6 7) '(1 4 6 7))
(1 3 4)

append-reverse 来自SRFI 1，因此在 Racket 中您必须使用 (require srfi/1)。