String Halving by leonid

f=proc{|s|"{#{s[1]?f[s[0,i=-~s.size/2]]+f[s[i,$$]]:s}}"}
$><<f[gets]

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

download

return top