(ack.tal) Added Ackermann function

6 months ago · 87465a40ba
1 changed files with 6 additions and 0 deletions
--- a/projects/examples/exercises/ack.tal
+++ b/projects/examples/exercises/ack.tal
@ -0,0 +1,6 @@
+#02 #02 ack BRK
+
+@ack ( m n -- r )
+	OVR ?{ NIP INC JMP2r }
+	DUP ?{ INC SUB #01 !ack }
+	#0101 SUB2 OVR INC SWP ack !ack