map{for$a((/1|4/?reverse~~<>:<>)=~/./g){$x[7+($x+=/3/-/1/)][8+($y+=/2/-/4/)]=$a}}2123434341214123=~/./g;print map$_||$",@$_,$/for@x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page