リストがラケットの1つ以上の要素を共有しているかどうかをチェック

Question

私はlst1とlst2という2つのリストを持っています。彼らがいくつかの要素を共有しているかどうかをチェックする関数を定義したいと思います。たとえば、次のように

• (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. これを拡張して、任意の数のリストをサポートするにはどうすればよいですか？すなわち、
   • (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、doesnの私の質問には全く答えられません。

Answer 1

両方の質問は、可変数の引数を取る単一のプロシージャを使用して解決できます。少なくとも一つのリストが渡されると仮定すると、我々が持っている：

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

説明：

• 我々は、すべてのリストにset-intersectを適用します。
• 交差の後に結果が空でない場合、リストは少なくとも1つの要素を共有します。あなたの例を使用して

：

あなたが使用することができ

(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