检查列表是否共享 Racket 中的一个或多个元素

Question

我有两个列表，lst1 和 lst2。我想定义一个函数来检查它们是否共享某些元素。例如：

• (share-some-elements? '(a b) '(a c)) ⇒ 是的
• (share-some-elements? '(a b) '(d e f)) ⇒ 错误
• (share-some-elements? '(a b) '(a b d e)) ⇒ 是的

我有一个实现：

(define (share-some-elements? lst1 lst2)
  (ormap (λ (x) (member x lst1)) lst2))

检查lst2 中的每个元素是否是lst1 的成员，如果其中任何一个是则返回true。

我的问题是：

1. 还有哪些其他方法可以做到这一点？
2. 如何扩展它以支持任意数量的列表？ IE。
   • (all-share-some-elements? '(a b) '(a c) '(a d)) ⇒ 是的
   • (all-share-some-elements? '(a b) '(a c) '(b d)) ⇒ 错误
   • (all-share-some-elements? '(a b) '(a c) '(b d a)) ⇒ 是的

关于如何在 python 中的两个列表上执行此操作有一个类似的问题： Checking if two lists share at least one element，这并不能完全回答我的问题。

Answer 1

这两个问题都可以使用带有可变数量参数的单个过程来解决。假设至少通过了一个列表，我们有：

(define (all-share-some-elements? . lists)
  (not (null? (apply set-intersect lists))))

解释：

• 我们在所有列表中应用set-intersect。
• 如果在交集之后的结果是非空的，那么列表共享至少一个共同的元素。

使用你的例子：

(all-share-some-elements? '(a b) '(a c))
=> #t
(all-share-some-elements? '(a b) '(d e f))
=> #f
(all-share-some-elements? '(a b) '(a b d e))
=> #t

(all-share-some-elements? '(a b) '(a c) '(a d))
=> #t
(all-share-some-elements? '(a b) '(a c) '(b d))
=> #f
(all-share-some-elements? '(a b) '(a c) '(b d a))
=> #t