Вычислить сумму значений в дереве

Question

Предположим, что мы определили дерево целых чисел:

type inttree = Int of int | Node of inttree * inttree ;; 

есть ли возможный способ найти сумму элементов этого дерева?

Answer 1

Попробуйте простую рекурсивную функцию (делает глубины первый обход), как

let rec mysum t = match t with 
     Int x -> x 
    | Node (l,r) -> mysum l + mysum r 
;; 

Первая строка может быть let rec mysum = function (это вопрос стиля).