Data update

Task/Sudan-function/OxygenBasic/sudan-function.basic

@@ -0,0 +1,37 @@
+uses console
+'
+function F(int n, x, y) as int
+  if n = 0 then
+    function = x + y
+    exit function
+  endif
+  if y = 0 then
+    function = x
+    exit function
+  endif
+  function = F(n - 1, F(n, x, y - 1), F(n, x, y - 1) + y)
+end function
+'
+int n, x, y
+for n = 0 to 1
+  printl " Values of F(" n ", x, y ):"
+  printl " y/x    0       1       2       3       4       5"
+  printl string(52, "-")
+  for y = 0 to 6
+    print "  " y " |" tab
+    for x = 0 to 5
+      print F(n, x, y) tab
+    next x
+    printl
+  next y
+  printl
+next n
+'
+printl "F(0,0,0) = " F(0, 0, 0)
+printl "F(1,3,3) = " F(1, 3, 3)
+printl "F(2,1,1) = " F(2, 1, 1)
+printl "F(3,1,1) = " F(3, 1, 1)
+printl "F(2,2,1) = " F(2, 2, 1)
+
+printl cr "Enter ..."
+waitkey