[Jprogramming] nonsequential 1s

[Raul Miller]

Does this match what you are looking for?
   b=:#:i.16
   cntg=:((1 0{. at I.@E."1]) (< -.@* *&*) 0 1{:@I. at E."1])&(0,.])
   (#~ cntg) b
0 0 0 0
0 0 0 1
0 0 1 0
0 0 1 1
0 1 0 0
0 1 1 0
0 1 1 1
1 0 0 0
1 1 0 0
1 1 1 0
1 1 1 1

Thanks,

-- 
Raul