b: =proc(n,i)选项记忆;`如果`(n=0,{0},`if`(i<1,{},
{seq(映射(p->p+j*x^i,b(n-i*j,i-1))[],j=0..n/i)})
结束时间:
g: =proc(n,k)选项记住;加(加(2^加(加上(igcd(i,j))*
系数(s,x,i)*系数(t,x,j),j=1..度(t)),
i=1..度/mul(i^系数(s,x,i)*coeff(s,x,i)!,
i=1..度)/mul(i^系数(t,x,i)*coeff(t,x,i)!,
i=1.度(t),t=b(n+k$2),s=b(n$2))
结束时间:
A: =(n,k)->g(最小值(n,k),abs(n-k)):
a: =d->加(a(n,d-n),n=0..d):