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）：
