独立Q[collection_]:=如果[MemberQ[集合,表[0,{nn}]]\[或]!
DuplicateFreeQ[集合],False,Apply[And,Table[!MemberQ[Map[Clip[Total[#]]&,Subsets[Drop[collection,{i}],{2,Length[collection]}]],
集合[[i]]],{i,1,长度[collection]}]];地图[总计,
Map[Select[#,#>0&]&,able[Table[Length[Select[子集[Tuples[{0,1},nn],{i}],independentQ[#]&]],{i,0,nn}],{nn,0,5}]]
|