Squares Fixed by koyama41

main=interact$(0%).map(foldr(&)0).lines
' '&v=v*49
_&v=v*49+1
x%(y:z)=(x+y*7)%[]++(y*157)%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