langs a-z

Task/Ackermann-function/XPL0/ackermann-function.xpl0

@@ -0,0 +1,16 @@
+include c:\cxpl\codes;
+
+func Ackermann(M, N);
+int M, N;
+[if M=0 then return N+1;
+ if N=0 then return Ackermann(M-1, 1);
+return Ackermann(M-1, Ackermann(M, N-1));
+]; \Ackermann
+
+int M, N;
+[for M:= 0 to 3 do
+    [for N:= 0 to 7 do
+        [IntOut(0, Ackermann(M, N));  ChOut(0,9\tab\)];
+    CrLf(0);
+    ];
+]