(sierpinski) Optimization

2 years ago · 24dbf258fd
1 changed files with 2 additions and 3 deletions
--- a/projects/examples/exercises/sierpinski.tal
+++ b/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