POJ 1833 排列的应用

首先，从右向左搜出一个满足 A[I-1]<A[I]的I 

 

 然后，从I开始向右搜一个大于A[I-1]且最小的数A[J]

  之后，交换A[I-1]和A[J]（很多其他的文章都说是A[I]与A[J]交换，那是错的，万万不可信（像某天真的小牛......））

   从将[I,N]这个区间快拍即可。

 

将以上步骤重复K次，输出排列即可。

 

 

 

要说证明吗，大家应该可以想到范浩强的石子合并算法，和这题一样，抽象模型，模拟即可。

 具体就不说了，很简单，自己找个数据算一下即可。

 

 

 

 

 

 

 

 

program e1833; var i,j,n,k,t,o,min,sp:longint; a:array[0..1025]of longint; procedure quicksort(l,r:longint); var i,j,x,t:longint; begin i:=l; j:=r; x:=a[l]; while i<j do begin while a[i]<x do inc(i); while a[j]>x do dec(j); if i<j then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; if i>l then quicksort(l,i-1); if j<r then quicksort(j+1,r); end; begin read(t); for o:=1 to t do begin read(n,k); for i:=1 to n do read(a[i]); for k:=1 to k do begin for i:=n downto 1 do if a[i-1]<a[i] then break; if i=1 then for j:=1 to n do a[j]:=j else begin min:=maxlongint; sp:=i; for j:=i to n do if (a[j]>a[i-1]) and (a[j]<min) then begin sp:=j;min:=a[j];end; j:=a[i-1];a[i-1]:=a[sp];a[sp]:=j; quicksort(i,n); end; end; for i:=1 to n-1 do write(a[i],' '); writeln(a[n]); end; end.