Well... here's one possibility: https://rosettacode.org/wiki/Rot-13#J
Thanks, -- Raul On Wed, Sep 12, 2018 at 11:19 AM Daniel Lyons <[email protected]> wrote: > > Hi, > > Not a super practical thing but I am sort of working on rot-13 for a blog > post. > > The basic idea is to treat alphabetic characters as numbers 0-25 and perform > operations on them. This strikes me as a great example of &. under, and > handling only alphabetic characters leads to a nice use of @. agenda. So I > think in general the answer probably looks something like this: > > alphatransform =: 1 : ']`(u&.<alpha-number>)@.<is-alphabetic> &.(a.&i.) > > For instance, this is what I have now: > > ar =: 1 : '(]`(u&.(-&64))@.(<&90 *. >&64))"0 &.(a.&i.)' > > This seems to do the trick for upper case: > > (26|13+]) ar 'ATTACK AT DAWN!' > NGGNPX NG QNJA! > (26|13+]) ar^:2 'ATTACK AT DAWN!' > ATTACK AT DAWN! > > I could add a third item to the gerund for lowercase and complicate the test > a bit. But I thought I'd ask if I'm missing something obvious first. > > Thanks, > > -- > Daniel Lyons > > > > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
