Does this match what you are looking for?
b=:#:i.16
cntg=:((1 [EMAIL PROTECTED]@E."1]) (< [EMAIL PROTECTED] *&*) 0 1{:@[EMAIL
PROTECTED]"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 1Thanks, -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
