etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-29 09:13:01 +00:00
Code Issues Projects Releases Wiki Activity

(sierpinski) Optimization

Browse source
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 #2018 DEO
#01 SUB DUP ?&>pad #01 SUB DUP ?&>pad
&>fill ( length i -- ) &>fill ( length i -- )
ANDk #202a ROT ?{ SWP } ANDk #2018 DEOk SWP ROT ?{ #0a ORA }
POP #18 DEO SWP DEO
#2018 DEO
INC ADDk STHkr LTH ?&>fill INC ADDk STHkr LTH ?&>fill
POP2 #0a18 DEO POP2 #0a18 DEO
#01 SUB INCk ?&>ver #01 SUB INCk ?&>ver