June 2018 Update

Task/Integer-comparison/Astro/integer-comparison.astro

@@ -1,5 +1,5 @@
-let a = scan('Enter value of a: ')
-let b = scan('Enter value of b: ')
+let a = input('Enter value of a: ')
+let b = input('Enter value of b: ')
 
 if a < b:
     print 'a is less than b'

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

@@ -1,11 +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' <- getLine
-  b' <- getLine
-  let { a :: Integer; a = read a' }
-  let { b :: Integer; b = read b' }
+  a <- readLn
+  b <- readLn
   putStrLn $ myCompare a b

Task/Integer-comparison/HolyC/integer-comparison.holyc

@@ -0,0 +1,12 @@
+I64 *a, *b;
+a = Str2I64(GetStr("Enter your first number: "));
+b = Str2I64(GetStr("Enter your second number: "));
+
+if (a < b)
+  Print("%d is less than %d\n", a, b);
+
+if (a == b)
+  Print("%d is equal to %d\n", a, b);
+
+if (a > b)
+  Print("%d is greater than %d\n", a, b);