Sierpinski Fractal by yshl

1 .runstdin bitshift dup -1 1{2 copy sub exch 1 sub 0 2 3 index{dup 3 index 1 xor and eq{{( )print}repeat dup 2 mod 0 eq{2(/\\)}{0(/__\\)}ifelse print}{4 add}ifelse}for pop pop()=}for

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


return to the top page