Advertisement
Guest User

Untitled

a guest
Dec 24th, 2016
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. datatype none = Nil
  2. datatype ('a,'b) abtree = Leaf of none*none*none
  3.                         | Br1 of 'a * (('a,'b) abtree) * (('a,'b) abtree)
  4.                         | Br2 of 'b * (('b,'b) abtree) * (('b,'b) abtree)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement