Squares Round 3 by koyama41

main=interact$(0%).map(foldr(&)0).lines
' '&v=v*225
_&v=v*225+1
x%(y:z)=(x+y*693)%[]++(y*919)%z
0%_="\n"
3%_="\n"
x%y=" _  |x_|_x| xx "!!length[1..mod x 15]:div x 15%y

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

download

return to the top page