Изменение свойств объекта

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