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

6 lines
150 B
Plaintext

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);