Data commit

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

@@ -0,0 +1,18 @@
+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 "Ackermann("; m; ", "; n; ") = "; Ackermann(m, n)
+    Next
+  Next
+End