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 <[email protected]> wrote:
>
> ]a=.20#1
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
