b: =proc(x,y,t)选项记忆`如果`(y<0或y>x,0,
`如果`(x=0,1,展开(b(x-1,y+1,[2,2,4,5,2,4,
8、9、10、11、2、13、5、4、2、2、18、2、20、5][t])
+`如果`(t=20,z,1)*b(x-1,y-1,[1,3,1,3,6,7,
第1、3、3、12、1、14、15、16、17、1、19、1、3][t]))
结束时间:
T: =n->(p->seq(系数(p,z,i),i=0..度(p)))(b(2*n,0,1)):
seq(T(n),n=0..30);