Dragon curve by tails

vec($_,$x||=$$,8)=42,$x+=(1,99,-1,-99)[$d],$d=3&$d-1+(++$i/($i&-$i)&2)for($_=($/.$"x98)x99)x(1+2**<>);0while/
\S/?/\S
/?!print:s/ $//gm:s/^\s*^ //gm

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

download

return to the top page