n=6；f1={}；f2={}；x=0；p=分区p[n]；d=常量数组[Null，{p，n}]；对于[i=n，i>0，i--，r=删除案例[排序@PadRight[Reverse/@Cases[Integer Partitions[i]，x_/；最后[x]=1] ]，x_/；x==0,2]；附加到[f1，{{p-分区p[i]+1，p}，{1，i}}->厚]；对于[j=长度[r]，j>0，j--，rj=r[[j]]；y=1；x++；对于[k=长度[rj]，k>0，k--，rjk=rj[[k]]；d[[x，y]]=rjk；y=y+rjk；附加到[f2，{{x，x}，{y-rjk，y-1}}->Thin]]]；d[[p-分区p[i-1]+1；；p、 i]]=1]；网格[d，框架->{无，无，连接[f2，f1]}]（*~~~*）