如何知道兩個數組是否至少有一個相等的元素（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