Sierpinski Carpet by yshl

/n( \2\10\32).runstdin get def n -1 0{n -1 0{1 index 2{dup 3 idiv dup 3 idiv 4
mul add add exch}repeat and 21 and 0 eq{(::)}{(  )}ifelse print}for/ =}for

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page