On Tue, Oct 20, 2009 at 2:08 PM, Thomas Costigliola <[email protected]> wrote:
> Not sure if this shorter or exaclty correct, but it may be a starting point...
> (65 96 +"0 1 i.26) (13&|."1)@:[} i.128
This works:
(65 97+/i.26)13&|."1@:[}i.256
and is 9 characters shorter than
(+...@#)65 13 13 6 13 13 133#7$0 13 _13
and
rot13=:{&((65 97+/i.26)13&|."1@:[}i.256)&.(a.&i.)
is the same length as the K implementation
http://www.miranda.org/~jkominek/rot13/k/rot13.k
rot13:_ci[,/@[(0 65 91 97 123)_!256;1 3;13...@_ic
Thanks,
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
