pku1833 排列

给一个n个数的排列，求其向后k个的排列。

这里有一种字典序模拟法。

1：找到最靠后的x，使a[x]<a[x+1]

2：找到最小的a[y]，使a[y]>a[x]

3：交换a[x],a[y]

4：把序列（x+1..n）翻转。

每进行一次上述过程，就向下推了一个排列。

program pku1833(input,output);
var
   a     : array[0..2000] of longint;
   n     : longint;
   k     : longint;
   cases : longint;
procedure init;
var
   i : longint;
begin
   fillchar(a,sizeof(a),0);
   readln(n,k);
   for i:=1 to n do
      read(a[i]);
   readln;
end; { init }
procedure swap(var aa,bb :longint );
var
   tt : longint;
begin 
   tt:=aa;
   aa:=bb;
   bb:=tt;
end; { swap }
procedure main;
var
   i   : longint;
   x,y : longint;
begin  
   while k>0 do
   begin
      dec(k);
      i:=n;
      while (i>0)and(a[i]>a[i+1]) do
     dec(i);
      x:=i;
      if i=0 then
      begin
     for i:=1 to n do
        a[i]:=i;
      end
      else
      begin
     a[0]:=maxint;
     y:=0;
     for i:=x+1 to n do
        if (a[i]>a[x])and(a[i]<a[y]) then
           y:=i;
     swap(a[x],a[y]);
     for i:=1 to (n-x)>>1 do
        swap(a[x+i],a[n-i+1]);
      end;
   end;
end; { main }
procedure print;
var
   i : longint;
begin
   for i:=1 to n-1 do
      write(a[i],' ');
   writeln(a[n]);
end; { print }
begin
   readln(cases);
   while cases>0 do
   begin
      dec(cases);
      init;
      main;
      print;
   end;
end.