Browse Source

(sierpinski) Optimization

main
Devine Lu Linvega 2 years ago
parent
commit
24dbf258fd
  1. 5
      projects/examples/exercises/sierpinski.tal

5
projects/examples/exercises/sierpinski.tal

@ -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

Loading…
Cancel
Save