a 3d obliquous FIXED REALLY by rst76

main=interact$(>>=("\n "++).(" #.| .|"%)).f
_%0=""
(x:y)%n=([1..mod n 6]>>[x])++y%div n 6
f('1':_)=[401,616,831,1046,1261,1110,894,678,462,246]
f _=[326,541,1962,63954,110394,508,447,231]

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

download

return to the top page