Thanks. 'Y X'=:10000,@$&.>11 12 13 14 15;&,: 3 0 2 bx=: [EMAIL PROTECTED] #^:_1 ([EMAIL PROTECTED])@[ </. ]
ts '(*X)#^:_1(X#i.#X)</.Y' 0.01213111 3526016 NB. winner ts 'X bx Y' 0.020329264 2870336 Funny that [EMAIL PROTECTED] was used, and not I. R.E. Boss -----Oorspronkelijk bericht----- Van: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Namens Björn Helgason Verzonden: vrijdag 20 april 2007 15:35 Aan: Programming forum Onderwerp: Re: [Jprogramming] Boxing Data 'x y'=:3 0 2;11 12 13 14 15 (...) -----Oorspronkelijk bericht----- Van: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Namens R.E. Boss Verzonden: vrijdag 20 april 2007 15:20 Aan: 'Programming forum' Onderwerp: RE: [Jprogramming] Boxing Data The last solution in October, http://www.jsoftware.com/pipermail/programming/2006-November/003853.html is faster: 'X Y'=:10000,@$&.>11 12 13 14 15;&,: 3 0 2 ts 'X BoxAccTo Y' 0.045380196 4742464 ts 'X ([EMAIL PROTECTED] #^:_1 (</.~ I.)) Y' 0.016437219 3526464 (X BoxAccTo Y) -: ([EMAIL PROTECTED] #^:_1 (</.~ I.)) Y 1 R.E. Boss ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
