> From: Sherlock, Ric
>
> Another approach ...
>
> (<"0@(1&{"1) ,. -@:{."1 |."0 1 a: ,.~^:2 [: <"0 {:"1) R
>
Without boxing:
(1&{ ,. -...@{. (|."0 1) _ ,.~^:2 {:) |:R
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
