b: =proc(d,i,n,x,y,w)选项记忆;
`如果`(y+w>n,0,`如果`(n=0,` if`(y=0且w=0,1,0),
`如果`(d≤3,b(1,evalb(x=0),n-1,max(x-1,0),y,w+1),0)+
`如果`(d<>4,b(2,evalb(y=0),n-1,x,max(y-1,0),w),0)+
`如果`([0,3]中的d或d=2和i,b(3,false,n-1,x+1,y,
最大值(w-1,0),0)+
`如果`([0,4]中的d或d=1和i,b(4,false,n-1,x,y+1,w),0))
结束时间:
a: =n->b(0,假,n,0,0,零):
seq(a(n),n=0..30);
|