anarchy golf - the source code

Encoder decoder by notogawa

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

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