Langtons Ant by tails (tybalt89)

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

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

download

return top