update

Task/Ackermann-function/FBSL/ackermann-function-1.fbsl

@@ -0,0 +1,22 @@
+#APPTYPE CONSOLE
+
+TestAckermann()
+
+PAUSE
+
+SUB TestAckermann()
+	FOR DIM m = 0 TO 3
+		FOR DIM n = 0 TO 10
+			PRINT AckermannF(m, n), " ";
+		NEXT
+		PRINT
+	NEXT
+END SUB
+
+FUNCTION AckermannF(m AS INTEGER, n AS INTEGER) AS INTEGER
+	IF NOT m THEN RETURN n + 1
+	IF NOT n THEN RETURN AckermannA(m - 1, 1)
+	RETURN AckermannC(m - 1, AckermannF(m, n - 1))
+END FUNCTION
+
+DYNC AckermannC(m AS INTEGER, n AS INTEGER) AS INTEGER

Task/Ackermann-function/FBSL/ackermann-function-2.fbsl

@@ -0,0 +1,11 @@
+	int Ackermann(int m, int n)
+	{
+		if (!m) return n + 1;
+		if (!n) return Ackermann(m - 1, 1);
+		return Ackermann(m - 1, Ackermann(m, n - 1));
+	}
+	
+	int main(int m, int n)
+	{
+		return Ackermann(m, n);
+	}

Task/Ackermann-function/FBSL/ackermann-function-3.fbsl

@@ -0,0 +1,3 @@
+END DYNC
+
+DYNASM AckermannA(m AS INTEGER, n AS INTEGER) AS INTEGER

Task/Ackermann-function/FBSL/ackermann-function-4.fbsl

@@ -0,0 +1,35 @@
+	ENTER 0, 0
+	INVOKE Ackermann, m, n
+	LEAVE
+	RET
+	
+	@Ackermann
+	ENTER 0, 0
+
+	.IF DWORD PTR [m] .THEN
+		JMP @F
+	.ENDIF
+	MOV EAX, n
+	INC EAX
+	JMP xit
+
+	@@
+	.IF DWORD PTR [n] .THEN
+		JMP @F
+	.ENDIF
+	MOV EAX, m
+	DEC EAX
+	INVOKE Ackermann, EAX, 1
+	JMP xit
+
+	@@
+	MOV EAX, n
+	DEC EAX
+	INVOKE Ackermann, m, EAX
+	MOV ECX, m
+	DEC ECX
+	INVOKE Ackermann, ECX, EAX
+	
+	@xit
+	LEAVE
+	RET 8

Task/Ackermann-function/FBSL/ackermann-function-5.fbsl

@@ -0,0 +1 @@
+END DYNASM