2014-03-10 15:39:59 +01:00
|
|
|
data Bool = False | True
|
|
|
|
|
data Color = Red | Green | Blue | Indigo | Violet
|
|
|
|
|
data Tree a = Leaf a | Branch (Tree a) (Tree a)
|
2014-03-11 13:58:42 +01:00
|
|
|
data Point = Point Float Float deriving (Show)
|
|
|
|
|
data Tree t = Node t [Tree t]
|
