A-M baby

Task/Integer-comparison/Haskell/integer-comparison-1.hs

@@ -0,0 +1,11 @@
+myCompare a b
+  | a < b  = "A is less than B"
+  | a > b  = "A is greater than B"
+  | a == b = "A equals B"
+
+main = do
+  a' <- getLine
+  b' <- getLine
+  let { a :: Integer; a = read a' }
+  let { b :: Integer; b = read b' }
+  putStrLn $ myCompare a b

Task/Integer-comparison/Haskell/integer-comparison-2.hs

@@ -0,0 +1,4 @@
+myCompare a b = case compare a b of
+                  LT -> "A is less than B"
+                  GT -> "A is greater than B"
+                  EQ -> "A equals B"