This also works with length 64
(,.@]^:(46 e.[)(,,.~65 97+/i.26)&([:}.26{.[}.~[i.{.@]))&.(a.&i.) 'B'
CDEFGHIJKLMNOPQRSTUVWXYZA
(,.@]^:(46 e.[)(,,.~65 97+/i.26)&([:}.26{.[}.~[i.{.@]))&.(a.&i.) '['
(,.@]^:(46 e.[)(,,.~65 97+/i.26)&([:}.26{.[}.~[i.{.@]))&.(a.&i.) 'B.'
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
A
I used # to only select good input and &. to convert back and forth from
character to number
Cheers, bob
On 2012-08-26, at 3:07 AM, R.E. Boss wrote:
> If your
>
> ,65 97+/26|i.51[n=:i.25
>
> is replaced by
>
> 32(+,]),~65+n=:i.26
>
> you win 4 characters, making the total 64.
>
> ,.^:('.'e.t)s{ ::($:&}.)~n+1+{.t i.~s=:a.{~,65 97+/26|i.51[n=:i.25[t=.'F'
> GHIJKLMNOPQRSTUVWXYZABCDEF
> ,.^:('.'e.t)s{ ::($:&}.)~n+1+{.t i.~s=:a.{~32(+,]),~65+n=:i.26[t=.'F'
> GHIJKLMNOPQRSTUVWXYZABCDEF
>
>
> R.E. Boss
>
>
>> -----Oorspronkelijk bericht-----
>> Van: [email protected]
>> [mailto:[email protected]] Namens Raul Miller
>> Verzonden: vrijdag 24 augustus 2012 21:17
>> Aan: [email protected]
>> Onderwerp: Re: [Jprogramming] Print Custom Alphabet
>>
>> I'm not sure how to express that here.
>>
>> Consider, for example:
>> ,.^:('.'e.t)s{ ::($:&}.)~n+1+{.t i.~s=:a.{~,65 97+/26|i.51[n=:i.25[t=.
>>
>> Here, I need would need quotes around the argument. And, it's still
>> 70 characters.
>>
>> --
>> Raul
>>
>> On Fri, Aug 24, 2012 at 3:01 PM, Roger Hui <[email protected]> wrote:
>>> I think it is customary to assume that the input is just an argument. The
>>> q solution so assumes.
>>>
>>>
>>>
>>> On Fri, Aug 24, 2012 at 11:38 AM, Raul Miller <[email protected]> wrote:
>>>
>>>> On Fri, Aug 24, 2012 at 2:00 PM, Roger Hui <[email protected]>
>>>> wrote:
>>>>> http://codegolf.stackexchange.com/questions/7036/print-custom-alphabet
>>>>>
>>>>> The gauntlet is thrown!
>>>>
>>>> The best I can see, right now, is:
>>>> ,.^:('.'e.t)s{ ::($:&}.)~n+1+s i.{.t=.1!:1##s=:a.{~,65
>>>> 97+/26|i.51[n=:i.25
>>>>
>>>> And this is 74 characters long -- 42% longer than another entry.
>>>>
>>>> Note that I am using something like 9 characters for the action of
>>>> reading input, and another 10 to give an empty result in an adverse
>>>> case.
>>>>
>>>> --
>>>> Raul
>>>> ----------------------------------------------------------------------
>>>> For information about J forums see http://www.jsoftware.com/forums.htm
>>>>
>>> ----------------------------------------------------------------------
>>> For information about J forums see http://www.jsoftware.com/forums.htm
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
