Ticket #1641: X.hs

File X.hs, 182 bytes (added by sorear, 7 years ago)

failing source code

Line 
1data Tree = Branch Int Tree Tree | Tip  deriving (Read,Show,Eq)
2
3tree 0 = Tip
4tree k = Branch k sub sub
5    where sub = tree (k-1)
6
7main = print (read (show (tree 15)) == (tree 15))