19 lines
323 B
Tal
19 lines
323 B
Tal
( uxncli sierpinski.rom )
|
|
|
|
@sierpinski ( -> )
|
|
[ LIT &size 10 ] STHk #01 SUB
|
|
&>ver ( -- )
|
|
DUP INCk
|
|
&>pad ( length -- )
|
|
#2018 DEO
|
|
#01 SUB DUP ?&>pad
|
|
&>fill ( length i -- )
|
|
ANDk #202a ROT ?{ SWP }
|
|
POP #18 DEO
|
|
#2018 DEO
|
|
INC ADDk STHkr LTH ?&>fill
|
|
POP2 #0a18 DEO
|
|
#01 SUB INCk ?&>ver
|
|
POP POPr BRK
|
|
|