diff --git a/projects/examples/exercises/sierpinski.tal b/projects/examples/exercises/sierpinski.tal new file mode 100644 index 0000000..d42bc97 --- /dev/null +++ b/projects/examples/exercises/sierpinski.tal @@ -0,0 +1,24 @@ +( uxncli sierpinski.rom ) + +|100 @on-reset ( -> ) + + #10 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 DUP #ff NEQ ?&ver + POP POPr + +BRK +