b[d,i_,n_,x_,y_,w_,s_]:=b[d,i,n,x,y,w,s]=
如果[n==0,如果[y==0&&w==0、1、0],
如果[d==0||d==1||(d==2||d==4)&&(x==0| |i),
b[1,x==0,n-1,最大值[x-1,0],y,w+1,s],0]+
如果[d==0||d==2||(d==1||d=3)&&(y==0| |i),
b[2,y==0,n-1,x,最大值[y-1,0],w,s+1],0]+
如果[d==0||d==3||(d==2||d==4)&&(w==0| |i),
b[3,w==0,n-1,x+1,y,最大值[w-1,0],s],0]+
如果[d==0||d==4||(d==1||d=3)&&(s==0| |i),
b[4,s==0,n-1,x,y+1,w,最大值[s-1,0]],0]
];
a[n_]:=b[0,真,n,0,0,0,0];
a/@范围[0,30](*Jean-François Alcover公司2019年9月22日之后阿洛伊斯·海因茨*)
|