Good point. This did not occur, but is not impossible. Thanks.
R.E. Boss > -----Oorspronkelijk bericht----- > Van: [email protected] [mailto:programming- > [email protected]] Namens Roger Hui > Verzonden: donderdag 4 juni 2009 16:25 > Aan: Programming forum > Onderwerp: Re: [Jprogramming] leveled as indicated > > This would preclude the possibility of having adjacent > groups at the same depth. e.g. > > 2 3 4,:1 1 2 > > But perhaps you don't want this possibility. > > > > ----- Original Message ----- > From: "R.E. Boss" <[email protected]> > Date: Thursday, June 4, 2009 5:20 > Subject: Re: [Jprogramming] leveled as indicated > To: 'Programming forum' <[email protected]> > > > Perhaps the left argument could better be given as #~/x as in > > > > #~/ 1 2 3 2 3 1,:2 1 3 2 1 3 > > 1 1 2 3 3 3 2 2 3 1 1 1 > > > > where the value gives the level depth and the value ranges > > determine the ranges in y . > > Then a solution is > > > > foo1=: 4 : '<@]^:({...@[)&>/"1 |:(<1 ,~ (}: ~: }.)x) <;.2 > > &> x ; y' > > > > 1 1 2 3 3 3 2 2 3 1 1 1 foo1 i.12 > > +---+---+---------+-----+-----+-------+ > > |0 1|+-+|+-------+|+---+|+---+|9 10 11| > > | ||2|||+-----+|||6 7|||+- > > +|| | > > | |+-+|||3 4 5|||+--- > > +|||8||| | > > | | ||+-----+|| > > ||+-+|| | > > | | |+-------+| > > |+---+| | > > +---+---+---------+-----+-----+-------+ > > > > > > R.E. Boss > > > > > > > -----Oorspronkelijk bericht----- > > > Van: [email protected] [mailto:programming- > > > [email protected]] Namens R.E. Boss > > > Verzonden: donderdag 4 juni 2009 8:49 > > > Aan: 'Programming forum' > > > Onderwerp: Re: [Jprogramming] leveled as indicated > > > > > > My solution was > > > > > > foo=: 4 : 0 > > > 'x0 x1'=. x > > > z=. (<"0 x0) ,. (x1 # i.#x1)</.y > > > (<@]^:[&>/)"1 z > > > ) > > > > > > It contains parts of both your and Hui's solution. > > > Thanks. > > > > > > > > > R.E. Boss > > > > > > > > > > -----Oorspronkelijk bericht----- > > > > Van: [email protected] [mailto:programming- > > > > [email protected]] Namens Raul Miller > > > > Verzonden: woensdag 3 juni 2009 21:42 > > > > Aan: Programming forum > > > > Onderwerp: Re: [Jprogramming] leveled as indicated > > > > > > > > foo=:4 :0 > > > > assert. 4 = (3!:0) > > x NB. x is integer > > > > assert. 2 = # > > x NB. x has 2 items > > > > assert. 2 = #$ x NB. x > > has rank 2 > > > > assert. (# y) = +/{: x > > > > assert. 0 < <./{. > > x NB. {.x > > is positive > > > > 'd l'=.x > > > > d <@]^:[&> (; l {.&.> 1) <;.1 y > > > > ) > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
