|
b： =proc（l，t）选项记忆；局部n，s；
n、 s：=nops（l），加上（i，i=l）`如果`（s=0，1，添加（`if`（t<>i和
irem（s+i-l[i]，2）=1和l[i]>`如果`（i=n，0，l[i+1]），b（底图(
i=`if`（i=n且l[n]=1，[][]，l[i]-1），l），i），0），i=1..n））
结束时间：
g： =（n，i，l）->`如果`（n=0或i=1，b（[l[]，1$n]，0），`如果'（i<1，0，
添加（g（n-i*j，i-1，[l[]，i$j]），j=0..n/i））：
a： =n->g（n，n，[]）：
seq（a（n），n=0..32）；
| 