hw1: init

hw1/test.hs

@@ -0,0 +1,50 @@
+import BigNum
+
+main :: IO ()
+main = do
+  putStrLn "Addition"
+  --999 + 456
+  putStrLn $ show $ bigAdd [999] [456]
+  --1999 + 1456
+  putStrLn $ show $ bigAdd [999,1] [456,1]
+  --681234999 + 456
+  putStrLn $ show $ bigAdd [999,234,681] [456]
+  --456 + 681234999
+  putStrLn $ show $ bigAdd [456] [999,234,681]
+  --681000999 + 456
+  putStrLn $ show $ bigAdd [999,0,681] [456]
+
+  putStrLn "Subtraction"
+  --1000 - 1
+  putStrLn $ show $ bigSubtract [0,1] [1]
+  --9643291 - 8329
+  putStrLn $ show $ bigSubtract [291,643,9] [329,8]
+  --999999 - 999998
+  putStrLn $ show $ bigSubtract [999,999] [998,999]
+  --10009 - 10009
+  putStrLn $ show $ bigSubtract [9,10] [9,10]
+
+  ----Error cases
+  --putStrLn $ show $ bigSubtract [987] [0,1]
+  --putStrLn $ show $ bigSubtract [9] [456]
+  --putStrLn $ show $ bigSubtract [9] [10]
+  --putStrLn $ show $ bigSubtract [9,999,999,999] [10,999,999,999]
+
+  putStrLn "Multiplication"
+  --3 * 4
+  putStrLn $ show $ bigMultiply [3] [4]
+  --1987 * 0
+  putStrLn $ show $ bigMultiply [987,1] [0]
+  --3001074098 * 4
+  putStrLn $ show $ bigMultiply [98,74,1,3] [4]
+  --3001074098 * 493128456291
+  putStrLn $ show $ bigMultiply [98,74,1,3] [291,456,128,493]
+
+  putStrLn "Power Of"
+  --2^8
+  putStrLn $ show $ bigPowerOf [2] [8]
+  --1832^0
+  putStrLn $ show $ bigPowerOf [832,1] [0]
+
+  putStrLn "Others"
+