String Halving by henkma

main=interact f
f[a]='{':a:"}"
f x|(a,b)<-splitAt(div(length x+1)2)x='{':f a++f b++"}"

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

download

return to the top page