June 2018 Update

Task/Ackermann-function/Gambas/ackermann-function.gambas

@@ -0,0 +1,21 @@
+Public Function ackermann (m as Float, n as Float) as Float
+      If m = 0 then
+        return n + 1
+      end If
+      If n = 0 then
+        return ackermann(m - 1, 1)
+      end If
+return ackermann(m - 1, ackermann(m, n - 1))
+
+End
+
+
+Public Sub Main()
+Dim m, n as Float
+For m = 0 to 3
+ For n = 0 to 4
+   print "Ackerman(";m;",";n;")=";ackermann(m, n)
+ Next
+Next
+
+End