|
|
例子
|
a（1）=1到a（5）=9杂波：
{{1}} {{2}} {{3}} {{4}} {{5}}
{{1,1}} {{1,2}} {{1,3}} {{1,4}}
{{1},{1}} {{1,1,1}} {{2,2}} {{2,3}}
{{1},{1},{1}} {{1,1,2}} {{1,1,3}}
{{2},{2}} {{1,2,2}}
{{1,1,1,1}} {{1,1,1,2}}
{{1,1},{1,1}} {{1,1,1,1,1}}
{{1},{1},{1},{1}} {{1,1},{1,2}}
{{1},{1},{1},{1},{1}}
|
|
|
数学
|
sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；
mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；
csm[s_]：=使用[{c=Select[Tuples[Range[Length[s]]，2]，And[OrderedQ[#]，UnsameQ@@#，Length[Intersection@@s[[#]]>0]&]}，如果[c=={}，s，csm[Union[Append[Delete[s，List/@c[[1]]]，Union@@s[[c[1]]]]]；
submultisetQ[M_，N_]：=或[Length[M]==0，匹配Q[{Sort[List@@M]，Sort[List@@N]}，{{x_，Z___}，}___，x_，W___}}/；子多重集Q[{Z}，{W}]]；
antiQ[s_]：=选择[Tuples[s，2]，和[UnsameQ@@#，submultisetQ@@#]&]={}；
表[Length[Select[Join@@mps/@Integer Partitions[n]，And[Length[csm[#]]==1，antiQ[#]&]]，{n，8}]
|
