| 数据
|
3, 5, 2, 4, 2, 2, 7,三,2,2,三,2,2,2,2,6,三,2,2,2,2,5,三,三,2,2,2,2,9,4,2,2,2,2,2,2,5,2,2,2,2,2,2,2,2,4, 3,2,2,2,2,2,2, 2, 2
|
| 例子
|
三,,2,2,2,2,2,2,2,2,,2,,2,
5,,2,2,2,2,2,2,2,2,,2,
4,,三,2,2,2,2,2,2,2,2,
7,2,2,2,2,2,2,2,2,
3,3,3,2,2,2,2,2,2,2,
6,3,2,2,2,2,2,2,2,
5,4,2,2,2,2,2,2,2,
9,2,2,2,2,2,2,2,
5,3,3,2,2,2,2,2,2,
4,4,3,2,2,2,2,2,2,
8,3,2,2,2,2,2,2,
7,4,2,2,2,2,2,2,
6,5,2,2,2,2,2,2,
11,2,2,2,2,2,2,
4,3,3,3,2,2,2,2,2,
7,3,3,2,2,2,2,2,
6,4,3,2,2,2,2,2,
5,5,3,2,2,2,2,2,
10,3,2,2,2,2,2,
5,4,4,2,2,2,2,2,
9,4,2,2,2,2,
8,5,2,2,2,2,2,
7,6,2,2,2,2,2,
|
| MAPLE公司
|
cmpL:=proc(a,b)局部i;对于i从1到min(nops(a),nops(b)),如果op(i,a)<op(i、b),则返回-1;elif op(i,a)>op(i、b)然后返回1;结束if;结束do;如果nops(a)>nops(b),则返回1;elif nops(a)<nops(b),然后返回-1;否则返回0;结束if;结束进程:
pShell最小值:=proc(p)局部idx,j;idx:=1;对于从2到nops(p)的j,如果cmpL(op(j,p),op(idx,p))<0,则idx:=j,则do;结束条件:;结束do;返回idx;结束进程:
A141285rowf:=进程(n)局部p;如果n<=1,则[n];else psort:=[];p:=组合[分区](n);当nops(p)>0时,做m:=pShellMin(p);mmi:=最小值(op(op(m,p)));如果mmi>1,则mma:=最大值(op(op(m,p)));psort:=[op(psort),排序(op(m,p),`>`)];结束条件:;p:=底土(m=NULL,p);结束do:psort;结束条件:;结束进程:
对于从1到17乘2的n,做shl:=A141285rowf(n);对于shl-do中的r,对于r-do printf中的k(“%d,”,k);结束操作:打印f(“\n”);结束操作:打印f(“\n”);结束do:
|
|