I offer what I had written. I use overtake rather than $
r=:[: ,./((-@>.@(%~#))]\([*>.@(%~#)){.])
On Sun, 18 Feb 2007, Roger Hui wrote:
spd5=: 4 : 0
,./ s $ (*/s=. x,>.(#y)%x){.y
)
spdj=: [: ,./ ([ , >.@(%~#)) ([ $ */@[ {. ]) ]
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
