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）]]；
K1=0；
m=14；table=Reap[当[K1<16，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；K5=6 K4-K3+X；K6=6*K5-K4+X；K7＝6*K6-K5+X；K8=6*K7-K6+X；母猪[J1，c]；母猪[m，d]；
母猪[K1，e]；母猪[K2，f]；母猪[K3，g]；母猪[K4，h]；
母猪[K5，i]；母猪[K6，j]；母猪[K7，k]；母猪[K8，l]；
K1++]][[2]]；
a=1；
list5=收获[当[a<11，b=a；
当[b>0时，母猪[表[[b，a+1-b]]]；b--]；a++]][[2,1]]；
列表5
