(sierpinski) Optimization

This commit is contained in:
Devine Lu Linvega 2024-03-08 15:55:58 -08:00
parent 8cccc5c919
commit 4ef304c579
1 changed files with 15 additions and 19 deletions

View File

@ -1,22 +1,18 @@
( uxncli sierpinski.rom ) ( uxncli sierpinski.rom )
@on-reset ( -> ) @sierpinski ( -> )
[ LIT &size 20 ] STHk #01 SUB [ LIT &size 10 ] STHk #01 SUB
&ver ( -- ) &>ver ( -- )
DUP DUP INCk
#00 EQUk ?{ &>pad ( length -- )
&pad ( -- )
#2018 DEO
INC GTHk ?&pad
} POP
#00
&fill
ANDk #202a ROT ?{ SWP } POP #18 DEO
#2018 DEO #2018 DEO
INC ADDk STHkr LTH ?&fill #01 SUB DUP ?&>pad
POP2 &>fill ( length i -- )
#0a18 DEO ANDk #202a ROT ?{ SWP }
#01 SUB INCk ?&ver POP #18 DEO
POP POPr #2018 DEO
BRK INC ADDk STHkr LTH ?&>fill
POP2 #0a18 DEO
#01 SUB INCk ?&>ver
POP POPr BRK