[Jprogramming] What a drag

[Andrew Nikitin]

here is another take:

drag=:#~ (#^:_1 [: }:@(-~ 1&|.) [: I. ,&1)@(-. at -:"1 [: {. 0 {. ])

this one is based on #^:_1/# rather than {, which might be a tad faster.

_________________________________________________________________
Visit MSN Holiday Challenge for your chance to win up to $50,000 in Holiday 
cash from MSN today!  
http://www.msnholidaychallenge.com/index.aspx?ocid=tagline&locale=en-us