[Jprogramming] shave=: #@:$ 0&(|:}:) ]

[Edushka S.]

Mine:
s2=:{~<@:((<@i.)"0@:<:@:$)

Runs slightly faster than the two mentioned above:
shave=: #@:$ 0&(|:}:) ]
s1=: ([EMAIL PROTECTED] $ _1:) }. ]
   6!:2 'shave i.100 100 100 30'
3.63488
   6!:2 's1 i.100 100 100 30'
1.14118
   6!:2 's2 i.100 100 100 30'
0.795163
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm