RosettaCodeData/Task/Caesar-cipher/PARI-GP/caesar-cipher.pari

6 lines
150 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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);