String Halving by pooq

sub f$(s$,a)a=len(s$)/2+.5
if a<>1s$=f$(left$(s$,a))+f$(mid$(s$,a+1))
return"{"+s$+"}"end sub
line input""s$
?f$(s$)

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

download

return to the top page