Data commit

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

@@ -0,0 +1,10 @@
+myCompare :: Integer -> Integer -> String
+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 <- readLn
+  b <- readLn
+  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"