prs2mat[prs_]:=表[Count[prs,{i,j}],{i、Union[First/@prs]},{j、Union[Plast/@prs]}];
multsubs[set_,k_]:=如果[k==0,{{}},连接@@表[Prepend[#,set[[i]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
表[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@@#],Union[Last/@#]=Range[Max@@Last/@@#],OrderedQ[Total/@prs2mat[#],Greater],Order edQ[Total/@Transpose[prs2mat[#]],Greeter]&],{n,6}]
|