And you can pinch it a littile bit more with some tricks:
drag0 =: {~ (I. {~ _1 + +/\)@: (+./"1@:~:&' ') NB. original
...
H=: 1e6 mockData >;:'ABC DEF GHI JKL MNO PQR STUV WXY Z'
ft3=:([EMAIL PROTECTED]:"1 [: {. 0 {. ])
6!:2 '((([: +/\ 0 0:} ]) { #~) ft3 f.) H'
0.0384082
6!:2 'drag0 H'
0.0919567
It is also funny how (0 0:} ]) is not the same as (0: 0} ])
nsg
_________________________________________________________________
All-in-one security and maintenance for your PC. Get a free 90-day trial!
http://clk.atdmt.com/MSN/go/msnnkwlo0050000002msn/direct/01/?href=http://clk.atdmt.com/MSN/go/msnnkwlo0050000001msn/direct/01/?href=http://www.windowsonecare.com/?sc_cid=msn_hotmail
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm