[Jprogramming] Boxing Data

[R.E. Boss]

Thanks.

   'Y X'=:10000,@$&.>11 12 13 14 15;&,: 3 0 2
   bx=: *@[ #^:_1 (#i.@#)@[ </. ]

   ts '(*X)#^:_1(X#i.#X)</.Y'
0.01213111 3526016		NB. winner
   ts 'X bx Y'
0.020329264 2870336

Funny that #i.@# was used, and not I.

R.E. Boss


-----Oorspronkelijk bericht-----
Van: programming-bounces at jsoftware.com
[mailto:programming-bounces at jsoftware.com] 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: programming-bounces at jsoftware.com
[mailto:programming-bounces at jsoftware.com] 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 (*@] #^:_1 (</.~ I.)) Y'
0.016437219 3526464

   (X BoxAccTo Y) -:  (*@] #^:_1 (</.~ I.)) Y
1

R.E. Boss