If the line is to return a column on input of type 'j.' then a few more
characters are needed.
R.E. Boss's proposition:
|:1j1#}.@((i.~|.e.#])26{.a.}.~64+33^'`'I.])"0'a'
also returns null on bad input like '-'.
On Thu, Aug 30, 2012 at 11:21 PM, Steven Taylor <tayl...@gmail.com> wrote:
> back to 43 (ignore last post).
>
> }.|:1j1#a.{~((-|.(i.25)+])(98-33^96>]))3&u:'j'
>
> preconditions:
> - must be scalar
> - must be between A-Z and a-z
>
> On 31 August 2012 04:07, Steven Taylor <tayl...@gmail.com> wrote:
>
> > 41 chars thanks to R.E.Boss and his 98-33^96 short-cut.
> >
> > }.|:1j1#a.{~(-|.(i.25)+])(98-33^96>])3&u:'j'
> >
> > The question on Stack Overflow doesn't mention vector input as being a
> > requirement.
> >
> >
> >
> > On 30 August 2012 18:24, Eldon Eller <eel...@pacbell.net> wrote:
> >
> >> This fails on some, but not all, illegal inputs:
> >>
> >> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 '5' NB. ok
> >> |:1j1#(25{.(u:,2#65
> >> 97+/i.26)(>:@i.}.[)])"0 '100' NB. gratuitous line feeds
> >>
> >>
> >> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 'lkjhfa' NB. does the
> whole
> >> vector
> >> m l k i g b
> >> n m l j h c
> >> o n m k i d
> >> p o n l j e
> >> q p o m k f
> >> r q p n l g
> >> s r q o m h
> >> t s r p n i
> >> u t s q o j
> >> v u t r p k
> >> w v u s q l
> >> x w v t r m
> >> y x w u s n
> >> z y x v t o
> >> a z y w u p
> >> b a z x v q
> >> c b a y w r
> >> d c b z x s
> >> e d c a y t
> >> f e d b z u
> >> g f e c a v
> >> h g f d b w
> >> i h g e c x
> >> j i h f d y
> >> k j i g e z
> >>
> >> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 'a3' NB. acts as if 3 is a
> >> period.
> >>
> >> 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
> >>
> >>
> >> On 08/30/2012 07:45 AM, bob therriault wrote:
> >>
> >>> Actually I think the shortest is still 43
> >>>
> >>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@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
> >>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@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
> >>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 '['
> >>>
> >>> #'|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0'
> >>> 43
> >>>
> >>> Cheers, bob
> >>>
> >>> On 2012-08-30, at 7:41 AM, R.E. Boss wrote:
> >>>
> >>> 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: programming-bounces@forums.**jsoftware.com<
> programming-boun...@forums.jsoftware.com>[mailto:
> >>>>> programming-bounces@**forums.jsoftware.com<
> programming-boun...@forums.jsoftware.com>]
> >>>>> Namens Robert Cyr
> >>>>> Verzonden: donderdag 30 augustus 2012 8:10
> >>>>> Aan: programm...@jsoftware.com
> >>>>> 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 <http://www.jsoftware.com/forums.htm>
> >>>>
> >>> ------------------------------**------------------------------**
> >>> ----------
> >>> For information about J forums see
> http://www.jsoftware.com/**forums.htm<http://www.jsoftware.com/forums.htm>
> >>>
> >>>
> >> ------------------------------**------------------------------**
> >> ----------
> >> For information about J forums see
> http://www.jsoftware.com/**forums.htm<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
