diff --git a/projects/examples/exercises/sierpinski.tal b/projects/examples/exercises/sierpinski.tal index f0572d4..a79de01 100644 --- 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