etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(sierpinski) Optimization

This commit is contained in:
Devine Lu Linvega 2024-03-08 16:16:18 -08:00
parent 4ef304c579
commit 24dbf258fd
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
projects/examples/exercises/sierpinski.tal
View File

@ -8,9 +8,8 @@
#2018 DEO
#01 SUB DUP ?&>pad
&>fill ( length i -- )
ANDk #202a ROT ?{ SWP }
POP #18 DEO
#2018 DEO
ANDk #2018 DEOk SWP ROT ?{ #0a ORA }
SWP DEO
INC ADDk STHkr LTH ?&>fill
POP2 #0a18 DEO
#01 SUB INCk ?&>ver