list - 两个列表 F# 之间的交集

Question

我正在寻找一个函数来获取两个列表之间的交集并创建一个新列表，我有这个函数:let intersect x y = Set.intersect (Set.ofList x) (Set.ofList y)做我想做的事，但我不想使用 F# 中的任何内置函数

Answer 1

最好使用图书馆的东西，但如果你不能

如果我们假设输入列表已排序(使用 List.sort 或自己编写):

let rec intersect a b =
    match a with
    |h::t -> match b with
             |h2::t2 -> 
                 if h=h2 then h::(intersect t t2)
                 else if h>h2 then intersect t b else intersect a t2
             |[] -> []
    |[] -> []