Untitled

mail@pastecode.io avatar
unknown
ocaml
2 years ago
97 B
1
Indexable
Never
let rec sum_tree = function
  | Lf -> 0
  | Br (v, t1, t2) -> v + sum_tree(t1) + sum_tree(t2);;