Encoder decoder by ehird(Shamelessly based on notogawa's.)

main=getLine>>=interact.f\x0d
f('e':_)(a:b:x)=a:f"e"x++[b]\x0d
f _(a:x)=a:f""(reverse x)\x0d
f _ x=x

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

download

return to the top page