小编use*_*768的帖子

我正在寻找一个函数,它接受两个列表之间的交集并创建一个新列表,我有这个函数:let intersect x y = Set.intersect (Set.ofList x) (Set.ofList y)我做什么我蚂蚁但我不想使用F#中的任何内置函数

我有这个代码

type Tree<'T when 'T: comparison> = 
| Empty 
| Node of 'T * Tree<'T> * Tree<'T>

let rec insert value = function
| Empty -> Node(value, Empty, Empty)
| Node(v, left, right) when value < v -> Node(v, insert value left, right)
| Node(v, left, right) when value > v -> Node(v, left, insert value right)
| Node(_, _, _) as n -> n    

但是我想添加一个整数,我想添加一个整数列表.例:

let tree = addList [5;2;1;6;7];;

并且列表应该添加到树中