p: =(n,k)->二项式(n,iquo(2*n-k+1,2)):
g: =(n,k,i)->`如果`(n=0,1,g(n-p(k,i-1),k,i-1)
+添加(b(n-j,j),j=p(k,i-1)+1..分钟(n,p(k(i))):
b: =proc(n,i)选项记忆`如果`(n=0,1,
`如果`(i<1,0,b(n,i-1)+`如果`(i>n,0,b(n-i,i)))
结束时间:
a: =n->(m->加(b(m-j,min(j,m-j)),j=p(n$2)+1..m)
+g(m-p(n$2,n$2))(2^n):
|