Encoder decoder by m.ukai

Scanf.scanf"%s
%s@0"(fun b s->let p,m=print_char,1005in
for i=0to m do"e"<b&()=p s.[i*2]||p s.[m*2-i-0/(m-i)]=p s.[i]done;for i=1to m do
p s.[2011-i*2]done)

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

download

return to the top page