RosettaCodeData/Task/Caesar-cipher/Zkl/caesar-cipher-1.zkl
2017-09-25 22:28:19 +02:00

7 lines
274 B
Text

fcn caesarCodec(str,n,encode=True){
var [const] letters=["a".."z"].chain(["A".."Z"]).pump(String); // static
if(not encode) n=26 - n;
m,sz := n + 26, 26 - n;
ltrs:=String(letters[n,sz],letters[0,n],letters[m,sz],letters[26,n]);
str.translate(letters,ltrs)
}