Data commit

Task/Sudan-function/Gambas/sudan-function.gambas

@@ -0,0 +1,31 @@
+Function F(n As Integer, x As Integer, y As Integer) As Integer
+
+  If n = 0 Then Return x + y
+  If y = 0 Then Return x
+  Return F(n - 1, F(n, x, y - 1), F(n, x, y - 1) + y)
+
+End Function
+
+Public Sub Main()
+
+  Dim n, x, y As Integer
+
+  For n = 0 To 1
+    Print " Values of F(" & n & ", x, y):"
+    Print " y/x    0   1   2   3   4   5"
+    Print String(29, "-") 'Print " ----------------------------"
+    For y = 0 To 6
+      Print y; "  | ";
+      For x = 0 To 5
+        Print Format$(F(n, x, y), "####");
+      Next
+      Print
+    Next
+    Print
+  Next
+
+  Print "F(2,1,1) = "; F(2, 1, 1)
+  Print "F(3,1,1) = "; F(3, 1, 1)
+  Print "F(2,2,1) = "; F(2, 2, 1)
+
+End