Here is one that works on lower case alone.. rot13 =: (13 & (+:@[ | +)) &.((-&97)@(a.&i.)) rot13 apple
On Tue, Oct 20, 2009 at 12:51 PM, Raul Miller <[email protected]> wrote: > When reading http://www.miranda.org/~jkominek/rot13/ > I noticed they had a K implementation, but not a J > implementation. > > I tried my hand, and I can not quite match the K > implementation for conciseness. > > rot13=: {&((+...@#)65 13 13 6 13 13 133#7$0 13 _13)&.(a.&i.) > > I searched the forums and did not find anything shorter. > > I think we should have a more concise way of > expressing the constant > (+...@#)65 13 13 6 13 13 133#7$0 13 _13 > perhaps something which uses amend? > > That said, you should probably not try this: > q:A.(+...@#)65 13 13 6 13 13 133#7$0 13 _13 > unless you are prepared to use jbreak. > > -- > Raul > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > -- - michael dykman - [email protected] "May you live every day of your life." Jonathan Swift ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
