Sierpinski Carpet by murky-satyr

C:={'::'}.49to:stdin nextByte do:[:z|A:={}.C do:[:r|1to:3 do:[:i|T:='%0  %0'.i=2or:[T:='%0%0%0'].A:=A,{r copyReplacingAllRegex:'..'with:T}]].C:=A].C do:[:x|x displayNl]

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

download

return to the top page