Data update

Task/Ackermann-function/Euphoria/ackermann-function-1.eu

@@ -0,0 +1,16 @@
+function ack(atom m, atom n)
+    if m = 0 then
+        return n + 1
+    elsif m > 0 and n = 0 then
+        return ack(m - 1, 1)
+    else
+        return ack(m - 1, ack(m, n - 1))
+    end if
+end function
+
+for i = 0 to 3 do
+    for j = 0 to 6 do
+        printf( 1, "%5d", ack( i, j ) )
+    end for
+    puts( 1, "\n" )
+end for

Task/Ackermann-function/Euphoria/ackermann-function-2.eu

@@ -0,0 +1,12 @@
+function ackermann(integer m, integer n)
+  if m=0 then return n+1
+  elsif m>0 and n=0 then return ackermann(m-1, 1)
+  elsif m>0 and n>0 then return ackermann(m-1, ackermann(m,n-1))
+  else return 0
+  end if
+  return 0
+end function
+
+? ackermann(0, 0)
+? ackermann(3, 4)
+? ackermann(3, 10)