RosettaCodeData/Task/Caesar-cipher/PARI-GP/caesar-cipher.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
150 B
Text

enc(s,n)={
Strchr(Vecsmall(apply(k->if(k>96&&k<123,(k+n-97)%26+97, if(k>64&&k<91, (k+n-65)%26+65, k)),
Vec(Vecsmall(s)))))
};
dec(s,n)=enc(s,-n);