Slide 4
Slide 4 text
type tree = Leaf | Node(int, tree, tree);
let rec sum = (x) =>
switch (x) {
| Leaf => 0
| Node(value, left, right) =>
value + sum(left) + sum(right);
};
let myTree =
Node(
1,
Node(2, Node(4, Leaf, Leaf),
Node(6, Leaf, Leaf)),
Node(3, Node(5, Leaf, Leaf),
Node(7, Leaf, Leaf))
);
sum(myTree) |> print_int;
• Syntax: JS
• Style: FP
• No type annotations
(x, myTree)