or Haskell
[lambda.git] / exercises / assignment5_hint3.mdwn
1 Consider this pattern:
2
3     # let rec enumerate_from (t:'a color_tree) counter = match t with
4       | Leaf x -> (Leaf counter, counter+1)
5       | Branch (left,col,right) -> let (left',counter') = ... in
6                                    let (right',counter'') = ... in
7                                    ...
8       ;;