Encoder decoder by murky-satyr

S:=(K:=stdin upTo:0)copyFrom:8.
1to:4021by:2 do:[:i|K<'e'and:[C:=S at:1.S:=(S copyFrom:2)reverse];or:[C:=S at:i ifAbsent:[S at:4023-i]].C display]

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

download

return to the top page