Outline by sjoerd_visscher

main=interact(unlines.f.lines)
(%)=replicate
f l=l#maximum(map length l)
s&l=s:l++[s]
l#w=(w+4)%'#'&map(!w)(w%' '&l)
l!w='#'&(' '&l++(w-length l)%' ')

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

download

return to the top page