csm[s_]:=使用[{c=Select[Subsets[Range[Length[s]],{2}],Length[Crosection@@s[[#]]>0&]},如果[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[1]]]]];
vertConnSys[vts_,eds_]:=Min@@Length/@Select[Subsets[vts],Function[del,Length[del]==Length[vts]-1||csm[DeleteCases[DeleteCases[eds,Alternatives@@del,{2}],{}]]={补语[vts,del]}]];
表[Length[Select[Subsets[Subsets[Range[n],{1,n}]],vertConnSys[Range[n],#]=2&]],{n,0,3}]
|