|
g： =（l，i，n）->`if`（i=0，`if`）（n=0，[[]]，[]），[seq（映射（x->
[x[]，j]，g（l，i-1，n-j））[]，j=0..分钟（l[i]，n）]）：
h： =（p，v）->（q->加（（s->add（`if`（andmap（i->irem（k[i]，p[i]））
/igcd（t，p[i]）=0，[$1..q]），mul（（m->二项式（m，k[i]*m
/p[i]））（igcd（t，p[i]]），i=1..q），0），t=1..s）/s）（ilcm（seq(
`如果`（k[i]=0，1，p[i]），i=1..q）），k=g（p，q，v）））（nops（p））：
b： =（n，i，l，v）->`如果`（n=0或i=1,2^（（p->h（p，v））（[l[]，1$n]））
/n！，添加（b（n-i*j，i-1，[l[]，i$j]，v）/j/i ^j，j=0..n/i））：
T： =进程（n，k）T（n，k）：=`if`（k>n-k，T（n、n-k），b（n$2，[]，k））结束：
a： =n->加（T（n，k）-1，k=0..n）：
seq（a（n），n=0..10）；
| 