更改屬性

Question

我有代表樹類型：

type 'a tree = 
    | Null 
    | Node of 'a * 'a tree * 'a tree * 'a tree ref;; 

而我的目標是編寫一個函數'a tree -> unit是採用樹並改變它以這樣的方式，每一個節點都有一個以中綴順序引用下一個節點（最後一個節點指向Null）。

如何更改給定的樹而不返回它？

Answer 1

這裏有一個功能，使樹節點指向自己：

let circulate tn = 
    match tn with 
    | Null ->() 
    | Node (_, _, _, tr) -> tr := tn