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

3 lines
76 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
cndx=: [: , 65 97 +/ 26 | (i.26)&+
caesar=: (cndx 0)}&a.@u:@cndx@[ {~ a.i.]