添加整數二叉樹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  

但insteed增加一個整數的我想補充整數的整個列表。例如：

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您可以使用任何現有的樹來添加元素列表。