Squares Round 2 by koyama41

main=interact$(0%).map(foldr(&)0).lines
' '&v=v*2401
_&v=v*2401+1
x%(y:z)=(x+y*399)%[]++(y*7206)%[]++(y*7605)%z
0%_="\n"
x%y=" _||"!!length[1,3..mod x 7]:div x 7%y

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

download

return to the top page