Lose 1 char by replacing 98-33^96>3&u: by 64+33^'`'I.]
|:1j1#}.@((i.~|.e.#])26{.a.}.~64+33^'`'I.])"0'S'
T U V W X Y Z A B C D E F G H I J K L M N O P Q R
Is this, together with Millers solution, the shortest with 45 characters?
#'1j1#"1&|:(25{.]}.~1+i.~)&(u:,2#65 97+/i.26)"0'
45
The latter can be shortened 1 char by
1j1#"1&|:(u:,2#65 97+/i.26)&(25{.]}.~1+i.)"0
R.E. Boss
> -----Oorspronkelijk bericht-----
> Van: [email protected]
> [mailto:[email protected]] Namens Robert Cyr
> Verzonden: donderdag 30 augustus 2012 8:10
> Aan: [email protected]
> Onderwerp: Re: [Jprogramming] Print Custom Alphabet
>
>
> So another correction is needed, and the line is now 3 characters too long.
>
> |:1j1#}.@((i.~|.e.#])26{.a.}.~98-33^96>3&u:)"0 's.'
>
> I need the 26 character of the alphabet. I therefore remove my excess
> character after rotation only.
>
> Many thanks.
>
> Robert Cyr
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
