RosettaCodeData/Task/Caesar-cipher/J/caesar-cipher-1.j

3 lines
76 B
Plaintext

cndx=: [: , 65 97 +/ 26 | (i.26)&+
caesar=: (cndx 0)}&a.@u:@cndx@[ {~ a.i.]