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

3 lines
76 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
cndx=: [: , 65 97 +/ 26 | (i.26)&+
caesar=: (cndx 0)}&a.@u:@cndx@[ {~ a.i.]