Guest User

Untitled

a guest
Apr 21st, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. data Baum' a = Blatt a (Knoten  a (Baum' a) (Baum' a))
  2. CB::show a => Baum' a -> String
  3. CB (Blatt w) = show w
  4. CB (Knoten w l r) = (show w)++"D"++(CB l)++"UD"++(CB r)++"U"
Add Comment
Please, Sign In to add comment