2018-06-22 20:57:24 +00:00
|
|
|
myCompare :: Integer -> Integer -> String
|
2013-04-10 21:29:02 -07:00
|
|
|
myCompare a b
|
|
|
|
|
| a < b = "A is less than B"
|
|
|
|
|
| a > b = "A is greater than B"
|
|
|
|
|
| a == b = "A equals B"
|
|
|
|
|
|
|
|
|
|
main = do
|
2018-06-22 20:57:24 +00:00
|
|
|
a <- readLn
|
|
|
|
|
b <- readLn
|
2013-04-10 21:29:02 -07:00
|
|
|
putStrLn $ myCompare a b
|
