将整个整数列表添加到二叉树F＃

Question

我有这段代码

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];;

并将列表添加到树

Answer 1

你可以简单地做这样的折叠

let tree = List.fold (fun tree x -> inser­t x tree)­ Empty­ [5;2;1;6;7];;

在每个步骤中，您将返回一个新树，在下一步中添加下一个元素。您可以使用要添加元素列表的任何现有树，而不是Empty。