Slide 6
Slide 6 text
signature TREE=
sig
datatype 'a tree =
Lf | Node of 'a * 'a tree * 'a tree
val size: 'a tree -> int
end
structure T:> TREE =
struct
datatype 'a tree =
Lf | Node of 'a * 'a tree * 'a tree
fun size Lf = 0
| size(Node(_,t1, t2)) = 1 + size t1 + size t2
end