(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