Logolygon by Terje K

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