My loop solution performed not even that bad, it was leanest.
10 ts' (3 : (''z=.(1-#y)}.y'';''for_k. }.i.#y do. z=.z, (k{y) + +/z
end.'';''z'')) <:/~i.1000'
0.40290173 13686912
R.E. Boss
> -----Original Message-----
> From: [email protected] [mailto:programming-
> [email protected]] On Behalf Of R.E. Boss
> Sent: woensdag 10 december 2014 18:30
> To: [email protected]
> Subject: Re: [Jprogramming] more elegant solution?
>
> Can further be simplified to the faster and leaner
>
> +/\"1@(|.\)@(1,2&^@i.@<:) 5
> 1 1 1 1 1
> 1 2 2 2 2
> 2 3 4 4 4
> 4 6 7 8 8
> 8 12 14 15 16
>
> Some figures
> 10 ts'(((+ +/),]),:^:(1=#@$))/&.|. <:/~i.1000' NB. REB
> 3.5132891 27291264
> 10 ts'(#.@}: + {:)\"1&.|: <:/~i.1000' NB. HR
> 4.1630193 17839744
> 10 ts'(+/ . *~ |.@(]\.)@(1 ,~ 2&^)@i.@-.@#) <:/~i.1000' NB. HR
> 0.59133937 23368960
> 10 ts'+/\"1@(]\.&.|.@(1,2&^@i.@<:)) 1000' NB. AG
> 0.012311738 22311040
> 10 ts'+/\"1@|.\@(1,2&^@i.@<:) 1000' NB. REB
> 0.0066505051 13913344
>
>
> R.E. Boss
>
> (Add your info to
> http://www.jsoftware.com/jwiki/Community/Demographics )
>
> > -----Original Message-----
> > From: [email protected]
> [mailto:programming-
> > [email protected]] On Behalf Of Aai
> > Sent: woensdag 10 december 2014 9:02
> > To: [email protected]
> > Subject: Re: [Jprogramming] more elegant solution?
> >
> > Another fast one
> >
> > +/\"1@(]\.&.|.@(1,2&^@i.@<:)) n
> >
> >
> > Henry Rich schreef op 09-12-14 om 23:25:
> > > Same idea, but a pretty efficient implementation:
> > >
> > > (+/ . *~ |.@(]\.)@(1 ,~ 2&^)@i.@-.@#) a
> > > 1 1 1 1 1
> > > 1 2 2 2 2
> > > 2 3 4 4 4
> > > 4 6 7 8 8
> > > 8 12 14 15 16
> > >
> > > Henry Rich
> > >
> > > On 12/9/2014 8:44 AM, R.E. Boss wrote:
> > >> Thinking out of my box.
> > >> Clever interpretation of the pattern.
> > >>
> > >>
> > >> R.E. Boss
> > >>
> > >>
> > >>> -----Original Message-----
> > >>> From: [email protected]
> > [mailto:programming-
> > >>> [email protected]] On Behalf Of Henry Rich
> > >>> Sent: dinsdag 9 december 2014 13:50
> > >>> To: [email protected]
> > >>> Subject: Re: [Jprogramming] more elegant solution?
> > >>>
> > >>> a =. <:/~i.5
> > >>> (#.@}: + {:)\"1&.|: a
> > >>> 1 1 1 1 1
> > >>> 1 2 2 2 2
> > >>> 2 3 4 4 4
> > >>> 4 6 7 8 8
> > >>> 8 12 14 15 16
> > >>>
> > >>> Henry Rich
> > >>>
> > >>> On 12/9/2014 6:56 AM, R.E. Boss wrote:
> > >>>> Given the matrix
> > >>>> <:/~i.5 NB. 5 could be any positive integer
> > >>>> 1 1 1 1 1
> > >>>> 0 1 1 1 1
> > >>>> 0 0 1 1 1
> > >>>> 0 0 0 1 1
> > >>>> 0 0 0 0 1
> > >>>> I want to generate
> > >>>> 1 1 1 1 1
> > >>>> 1 2 2 2 2
> > >>>> 2 3 4 4 4
> > >>>> 4 6 7 8 8
> > >>>> 8 12 14 15 16
> > >>>> which one would expect to construct with
> > >>>> ((+ +/),])/&.|.<:/~i.5
> > >>>> but then
> > >>>> 1 1 1 1 1 6 6 6 6 5 35 35 35 34 34 208 208 207 207 207 1245 1244
1244
> > >> 1244
> > >>>> 1244
> > >>>>
> > >>>> Of course I can think of all kind of solutions of which
> > >>>> (3 : ('z=.(1-#y)}.y';'for_k. }.i.#y do. z=.z, (k{y) + +/z
> > >> end.';'z'))
> > >>>> <:/~i.5
> > >>>> I regard the most satisfactory.
> > >>>> Does anyone has a more elegant tacit solution then
> > >>>> (((+ +/),]),:^:(1=#@$))/&.|. <:/~i.5
> > >>>> 1 1 1 1 1
> > >>>> 1 2 2 2 2
> > >>>> 2 3 4 4 4
> > >>>> 4 6 7 8 8
> > >>>> 8 12 14 15 16
> > >>>>
> > >>>>
> > >>>> R.E Boss
> > >>>>
> > >>>>
> ----------------------------------------------------------------------
> > >>>> 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
> >
> > --
> > Met vriendelijke groet,
> > @@i = Arie Groeneveld
> >
> > ----------------------------------------------------------------------
> > 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
