Nucleareal · July 15, 2014 01:15
diff --git a/readtest.hs b/readtest.hs
 data AorOther = A | Other deriving (Show, Eq)

 instance Read AorOther where
 read x
 	| x == "A"  = A
 	| otherwise = Other

 toString :: AorOther -> String
 toString x = " Your Input is " ++ show x

 main = do
 	p <- readLn
 	putStrLn $ toString p
	data AorOther = A \| Other deriving (Show, Eq)

	instance Read AorOther where
	read x
	\| x == "A" = A
	\| otherwise = Other

	toString :: AorOther -> String
	toString x = " Your Input is " ++ show x

	main = do
	p <- readLn
	putStrLn $ toString p