Sierpinski Fractal by murky-satyr

A:={' /\'.'/__\'}.50to:stdin nextByte do:[:i|A:=(A collect:[:s|'',(A collect:[:x|$ ]),s]),(A collect:[:s|s,(s=~' *')match,s])].A do:[:s|s displayNl]

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

download

return to the top page