Another approach would be to repair sign * to produce only 1 and _1, not 0. One way that works but looks rough is as follows.
thru1=: <. + i.@(+ *@(0.1&+))@-~ On Mon, 22 Sep 2008, Raul Miller wrote: through=: <./+ [EMAIL PROTECTED] _1^ > or its equivalent through=: <./+ [:i. -~+ _1^ > 3 through 7 3 4 5 6 7 3 through _1 3 2 1 0 _1 3 through 3 3 -- (B=) <----------my "sig" Brian Schott Atlanta, GA, USA schott DOT bee are eye eh en AT gee em ae eye el DOT com http://schott.selfip.net/~brian/ ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
