如何知道两个数组是否至少有一个相等的元素（f＃）

Question

我有一个关于比较数组的问题。 我有两个数组：

let A = [|1;2;3;4;5|] 
    let B = [|2;7|] 

我想现在如果他们至少有一个平等的元素。如果他们有回报真的。 我试试这样的功能：

let exists = Array.exists2 (fun elem1 elem2 -> elem1 = elem2) 
    exists A B 

在这种情况下应该返回true。 但它有一个问题，因为它只在数组长度相同时才起作用。怎么可能做一个适用于不同长度的函数？

Answer 1

的交集这可能是简单的：

let exists a b = (Set.ofArray a, Set.ofArray b) ||> Set.intersect |> (<>) Set.empty 

Answer 2

的一种方法是计算两套

let aset,bset = Set.ofArray A, set.ofArray B 
Set.Intersect aset,bset |> Set.toSeq |> Seq.length |> function |0 -> false _ -> true 

Answer 3

let exists a b = Array.exists (Set.ofArray a).Contains b