I would probably do this. Boxing is based on original requirement of right side being boxed
(> * [: >: (<2) = 1 |. ]) ;/ 1 2 3 2 2 4 2 1 2 2 6 4 2 8 2 1 Works on the negative test too (> * [: >: (<2) = 1 |. ]) ;/ _1 2 _3 2 2 _4 2 _1 _2 2 _6 4 2 _8 2 _1 It doesn't use ^: , which was in the subject line and may not be valid if ^: is required On Sat, May 17, 2014 at 11:28 AM, greg heil <[email protected]> wrote: > Linda > > >Wow that is super understandable and compact! Of course its domain is > limited, Eg it does not like negative numbers: > > d=: 1 2 3 2 2 4 2 1 > dn=: _1 2 _3 2 2 _4 2 _1 > dn=: (]* _1&^ @ (2~:])) d > > fLA=: ] >. +: * 1 |. 2 = ] > fLA dn > _1 2 _3 4 2 _4 2 0 > > >It did take me a _long_ time to penetrate Aai`s sophistry! Finally the > key was that /. was really oblique, not key! ...but it does survive this > negative number test: > > fA=: [: }. 2&*//.@(2&=,:]) > fA dn > _2 2 _6 4 2 _8 2 _1 > > >Anyway i think i am awake this am, thanks! i could be fooled though, only > dreaming i was awake;) > > greg > ~krsnadas.org > > -- > > from: Linda Alvord <[email protected]> > to: [email protected] > date: 16 May 2014 21:51 > subject: Re: [Jprogramming] ^: and boxes > > Maybe you'll like this. > > > f=: 13 :'y >.(1 |. 2 = y)*+:y' > f 1 2 3 2 2 4 2 > 2 2 6 4 2 8 2 > > f > ] >. +: * 1 |. 2 = ] > > Linda > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
