Squares Fixed by notogawa

main=interact$(""%).lines
s%(t:x)=s&t++'\n':t%x;s%_=s&""
""&""=""
(a:x)&(b:y)|' '<a="|_|"++drop 1(x&y)|a<b=a:'_':x&y|0<1=a:a:x&y
x&y=max" "x&max" "y

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

download

return to the top page