fork(2) download 
  1. data LinkedTree a
  2. 	= EmptyTree
  3. 	| Node a (LinkedTree a) (LinkedTree a) (LinkedTree a)
  4.  
  5. root = Node 1 l r root
  6. 	where
  7. 		l = Node 2 EmptyTree EmptyTree l
  8. 		r = Node 3 EmptyTree EmptyTree r
  9.  
  10. instance Show a => Show (LinkedTree a) where
  11. 	show EmptyTree = "{}"
  12. 	show (Node x EmptyTree EmptyTree _) = "{" ++ show x ++ "}"
  13. 	show (Node x l r _) = "{" ++ show x ++ " " ++ show l ++ " " ++ show r ++ "}"
  14.  
  15. main = print root
Success #stdin #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
stdout 
{1 {2} {3}}
https://ideone.com/3MsPLW
language:
Haskell (ghc 8.4.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!