diff --git a/projects/examples/exercises/ack.tal b/projects/examples/exercises/ack.tal new file mode 100644 index 0000000..4d288e7 --- /dev/null +++ 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