Squares Fixed by henkma

main=interact$unlines.f.lines
f x=zipWith(""!)(x++[""])$"":x
x#b|x<"."=' '|0<1=b
(p!x)y|x==y=['|'|p>" "]|0<1=max y p#'|':max x y#'_':(y!drop 1x$drop 1y)

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

download

return to the top page