et'(~.y)i.y'
0.0011792777
et'({((e.~i.@>:@(>./))#^:_1 /:)@~.)y'
0.0017299344
((~.y)i.y)-:({((e.~i.@>:@(>./))#^:_1 /:)@~.)y
1
R.E. Boss
> -----Oorspronkelijk bericht-----
> Van: [EMAIL PROTECTED] [mailto:programming-
> [EMAIL PROTECTED] Namens R.E. Boss
> Verzonden: vrijdag 25 mei 2007 16:37
> Aan: 'Programming forum'
> Onderwerp: RE: [Jprogramming] index in nub
>
> y=: 1e5 [EMAIL PROTECTED] 900
>
> et'(~.y)i.y'
> 0.0011738756
>
> et'(]{~.([EMAIL PROTECTED]@[`[`])} 0{.~#) y'
> 0.0027278706
>
> ((~.y)i.y)-:(]{~.([EMAIL PROTECTED]@[`[`])} 0{.~#) y
> 1
>
>
> R.E. Boss
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
