undcon[y_]：=选择[Tuples[Range[0，#]&/@y]，Function[v，GreaterEqual@@v&With[{r=Select[Range[Length[y]]，y[[#]]=！=v[[#]&]}，Or[Length[r]<=1，And@@Table[v[i]]<y[i+1]]，{i，Range[Min@@r，Max@@r-1]}]]]]]；
cos[y_]：=cos[y]=With[{samples=Most[undcon[y]]}，If[Length[samples]==0，If[Cotal[y]===0，{{}}，{}]，Join@@Table[Prepend[#，y]&/@cos[samples[[k]]]，{k，1，Length[sampless]}]]]；
表[Sum[Length[cos[y]]，{y，Integer Partitions[n]}]，{n，12}]
