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: programming-boun...@forums.jsoftware.com 
> [mailto:programming-boun...@forums.jsoftware.com] Namens Raul Miller
> Verzonden: vrijdag 24 augustus 2012 21:17
> Aan: programm...@jsoftware.com
> 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 <rogerhui.can...@gmail.com> 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 <rauldmil...@gmail.com> wrote:
> >
> >> On Fri, Aug 24, 2012 at 2:00 PM, Roger Hui <rogerhui.can...@gmail.com>
> >> 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

Reply via email to