uxn

commit 5668efaac8f3925073b2e7c159f157f71364d28c
parent 3e2082dddfccf3ee578d98fbc53202023d186b27
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Sun, 24 Mar 2024 11:53:02 -0700

Added tak

Diffstat:
M
projects/examples/demos/snake.tal
 | 
2
+-
A
projects/examples/exercises/tak.tal
 | 
12
++++++++++++

2 files changed, 13 insertions(+), 1 deletion(-)
diff --git a/projects/examples/demos/snake.tal b/projects/examples/demos/snake.tal
@@ -96,7 +96,7 @@
 		INC GTHk ?&>loop-body
 	POP2 &end JMP2r
 
-@set-pos ( z mod -- )
+@set-pos ( z mod max -- )
 	LDZ OVR INC ?{ ROT STZ
 		POP JMP2r }
 	DIVk MUL SUB SWP STZ
diff --git a/projects/examples/exercises/tak.tal b/projects/examples/exercises/tak.tal
@@ -0,0 +1,12 @@
+@on-reset ( -> )
+	#0b #14 #18 tak
+	#010e DEO
+	BRK
+
+@tak ( z y x -- res )
+	LTHk ?{ POP2 JMP2r }
+	ROT ROTk ROTk
+	( x-1 ) #01 SUB tak STH
+	( y-1 ) #01 SUB tak STH
+	( z-1 ) #01 SUB tak STHr STHr !tak
+