计算树中值的总和

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（这是一种风格问题）。