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

Compare commits

base: etc:8cccc5c91987ac4260ef40f7b0f248cbc9ed8018
Branches Tags
etc:main
etc:audio
etc:android
etc:opcode-swap
etc:next
etc:aarch64
etc:1.0
etc:android-1.5
etc:android-1.4
etc:android-1.3
etc:android-1.2
etc:android-1.1
...
compare: etc:b1549867e4a58e8ed0ac107bdf841bc879fa293f
Branches Tags
etc:main
etc:audio
etc:android
etc:opcode-swap
etc:next
etc:aarch64
etc:1.0
etc:android-1.5
etc:android-1.4
etc:android-1.3
etc:android-1.2
etc:android-1.1

4 Commits
8cccc5c919 ... b1549867e4

Author SHA1 Message Date
Devine Lu Linvega b1549867e4 (sierpinski) Tiny improvement 2024-03-08 16:48:51 -08:00
Devine Lu Linvega d7ee187d1d (sierpinski) Optimization 2024-03-08 16:39:45 -08:00
Devine Lu Linvega 24dbf258fd (sierpinski) Optimization 2024-03-08 16:16:18 -08:00
Devine Lu Linvega 4ef304c579 (sierpinski) Optimization 2024-03-08 15:55:58 -08:00
1 changed files with 15 additions and 20 deletions
Show Stats Expand all files Collapse all files

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

@ -1,22 +1,17 @@
( uxncli sierpinski.rom )
( uxncli sierpinski.rom )
@on-reset ( -> )
[ LIT &size 20 ] 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 INCk ?&ver
POP POPr
BRK
@sierpinski ( -> )
( mask ) [ LIT2r 0a18 ] [ LIT2r 2018 ]
( size ) [ LIT2 &size 1001 ] SUB
&>ver ( -- )
DUP INCk
&>pad ( length -- )
DEOkr
#01 SUB DUP ?&>pad
&>fill ( length i -- )
ANDk DUP2r ?{ POP2r ORA2kr } DEOr DEOkr
INC ADDk ,&size LDR LTH ?&>fill
POP2 OVR2r DEOr
#01 SUB INCk ?&>ver
POP POP2r POP2r BRK