It is too late, considering the result is not the one that you requested! Anyway I would use a numerical approach something like the incorrect one that I just posted.
Sheepishly - Cheers, bob > On Jan 15, 2020, at 23:03, 'robert therriault' via Programming > <programm...@jsoftware.com> wrote: > > Hi Skip, > > A late snowy night silly approach > > ]a=.20#1 > 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 > f1=. *@(3&|)@:i.@:# NB. mod 3 non-zeros > f1 a > 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 > f2=. -.@*@(2&|)@:i.@:# NB. mod 2 zeros > f2 a > 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 > (f1 *: f2) a NB. Not-And fork > 1 1 0 1 0 1 1 1 0 1 0 1 1 1 0 1 0 1 1 1 > f=. f1 *: f2 NB. requested result > f a > 1 1 0 1 0 1 1 1 0 1 0 1 1 1 0 1 0 1 1 1 > > Cheers, bob > > >> On Jan 15, 2020, at 22:29, Skip Cave <s...@caveconsulting.com> wrote: >> >> ]a=.20#1 > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
