Funge spiral by BioFALSE

$b=$_="^"x14 .'@<'."v"x14;
$a.="$_\n",s/.</<</,s/v/</ while/\^/;
$_=$b,s/\^@</>>v/;
$a="$_\n$a",s/\^>|>v/>>/g while/v/;
print$a

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

download

return to the top page