|
N： =10:#在第一个项之前获得所有项，其中a（N）>=2^N
B： =数组（0..2^N-1）：
B[0]：=1：
a[0]：=0：
五十： =矢量（[0$N]）：
从1到n do
坎迪斯：=选择（t->B[t[1]]=0，[seq（`如果`（L[i]=0、[a[n-1]+2^（i-1）、i]、[a[1]-2^（i-1）、i）），i=1..n）]）；
如果nops（cands）=0，则打破fi；
j： =最小[指数]（地图（t->t[1]，坎迪斯））；
a[n]：=cands[j][1]；
i： =坎迪斯[j][2]；
B[a[n]]：=1；
L[i]：=1-L[i]；
日期：
| 