Squares Fixed by rst76

main=interact$(%(=<<).(?)).lines
x%g=do(a,b)<-zip("":x)$x++x;g" _"b&g"|_"a&(' ':g" |"a)++"\n"
(a:x)&(b:y)=max a b:x&y;x&y=x++y
x?'.'=x;_?_="  "

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

download

return to the top page