|
highTri=编译[{{S1，_Integer}}，模块[{xS0=0，xS1=S1}，
而[xS1-xS0*（xS0+1）/2>xS0，xS0++]；
xS0]]；
overTri=编译[{{S2，_Integer}}，模块[{xS0=0，xS2=S2}，
而[xS2-xS0*（xS0+1）/2>xS0，xS0++]；
xS2-（xS0*（1+xS0）/2）]]；
tt=稀疏数组[{{12，1}->0，{1，12}->0}]；
K1=0；
m=14；当[K1<12时，J1=highTri[m*K1]；X=2*（m+K1+（J1*2+1））；
K2=6 K1-m+X；K3=6 K2-K1+X；K4=6 K3-K2+X；
o=超过Tri[m*K1]；tt[[1，K1+1]]=高Tri[m*K1]；
tt[[2，K1+1]]=高Tri[K1*K2-o]；tt[[3，K1+1]]=高Tri[K2*K3-o]；tt[[4，K1+1]]=高Tri[K3*K4-o]；
K1++]；k=1；
当[k<13，z=1；xx=99；当[z<5&&xx==99时，
如果[tt[[1，k]]+7 tt[[3，k]]-7 tt[[2，k]-tt[[4，k]==0，中断[]]；
如果[z==1，t=-tt[[z，k]]-1；tt[[z，k]]=t，s=-tt[[z-1，k]]-1；tt[[z-1，k]]=s；t=-tt[[z，k]]-1]；tt[[z，k]]=t；
w=1；当[w<5&&xx==99时，如果[tt[[1，k]]+7 tt[[3，k]]-7 tt[[2，k]]-tt[[4，k]==0，xx=0；中断[]]；如果[w==z，w++]；
t=-tt[[w，k]]-1；tt[[w，k]]=t；如果[tt[[1，k]]+7 tt[[3，k]]-7 tt[[2，k]-tt[[4，k]]==0，xx=0；中断[]，
t=-tt[[w，k]]-1]；tt[[w，k]]=t；w++]；z++]；cc=tt[[1，k]]-6tt[[2，k]]+tt[[3，k]]；p=5；而[p<14-k，
tt[[p，k]]=6 tt[[p-1，k]]-tt[[p-2，k]+cc；p++]；k++]；
a=1；list2=收获[当[a<12时，b=a；当[b>4时，母猪[0]；b--]；当[b>0时，母猪[tt[[b，a+1-b]]]；b-]；a++]][[2,1]]；列表2
| 