uxn

commit ae4d48bf56c6111dd5f70a66b451b8f4b9bef1c0
parent c7ce358d0d43e444b5826aad1d920553d19a4646
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Thu, 29 Feb 2024 15:44:58 -0800

(sierpinski.tal) Added example

Diffstat:
A
projects/examples/exercises/sierpinski.tal
 | 
24
++++++++++++++++++++++++

1 file changed, 24 insertions(+), 0 deletions(-)
diff --git a/projects/examples/exercises/sierpinski.tal b/projects/examples/exercises/sierpinski.tal
@@ -0,0 +1,24 @@
+( uxncli sierpinski.rom )
+
+|100 @on-reset ( -> )
+
+	#10 STHk #01 SUB
+	&ver ( -- )
+		DUP
+		#00 EQUk ?{
+			&pad ( -- )
+				#2018 DEO
+				INC GTHk ?&pad
+		} POP 
+		#00
+		&fill
+			ANDk #202a ROT ?{ SWP } POP #18 DEO
+			#2018 DEO
+			INC ADDk STHkr LTH ?&fill
+		POP2
+		#0a18 DEO
+		#01 SUB DUP #ff NEQ ?&ver
+	POP POPr
+
+BRK
+