September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Ackermann-function/Haskell/ackermann-function-1.hs
+++ b/Task/Ackermann-function/Haskell/ackermann-function-1.hs
@ -1,3 +1,7 @@
-ack 0 n = n + 1
-ack m 0 = ack (m-1) 1
-ack m n = ack (m-1) (ack m (n-1))
+ack :: Int -> Int -> Int
+ack 0 n = succ n
+ack m 0 = ack (pred m) 1
+ack m n = ack (pred m) (ack m (pred n))
+
+main :: IO ()
+main = mapM_ print $ uncurry ack <$> [(0, 0), (3, 4)]