Ric, Yes, I was able to use your answer to craft an answer. Please check this out.
R =: ccog (/: {:"1)@((0 1+"1 (4&$.)) ,. 5&$.)@:$.@(%/) rhub
(<"0 (1&{)"1 R),.(<"1 (3j1&":)@{:"1 R)(<"1 ({."1,....@#)R)}(a:$~3,~# ) R
Thanks,
(B=)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
