a[1]=0;d[1]=1;k=1;z=10000;zz=120;
A[k_]:=表[A[i],{i,1,k}];diff[k_]:=表[d[i],{i,1,k}];
c[k_]:=补码[Range[-z,z],diff[k]];
T[k_]:=-a[k]+补码[范围[z],a[k]]
表[{h=Min[交集[c[k],T[k]]],a[k+1]=a[k]+h,
d[k+1]=h,k=k+1},{i,1,zz}];
u=表格[a[k],{k,1,zz}](*2005年*)
表[d[k],{k,1,zz}](*A175499号*)
(*克拉克·金伯利2015年5月13日*)
|