Sierpinski Fractal by primo

<?for(;$k--+$n?:$n++<$k=1<<$c.=fgetc(STDIN);)echo$k+$n?$n-$k&-2*$n?~\xdf:~($k+$n&2?$n%2?\xd0:\xa0:($k+$n&1?\xa3:\xd0)):~\xf5;

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

download

return to the top page