洛谷1088 火星人

洛谷1088 火星人

题目描述

   人类终于登上了火星的土地并且见到了神秘的火星人。人类和火星人都无法理解对方的语言，但是我们的科学家发明了一种用数字交流的方法。这种交流方法是这样的，首先，火星人把一个非常大的数字告诉人类科学家，科学家破解这个数字的含义后，再把一个很小的数字加到这个大数上面，把结果告诉火星人，作为人类的回答。
   火星人用一种非常简单的方式来表示数字――掰手指。火星人只有一只手，但这只手上有成千上万的手指，这些手指排成一列，分别编号为1，2，3……。火星人的任意两根手指都能随意交换位置，他们就是通过这方法计数的。
   一个火星人用一个人类的手演示了如何用手指计数。如果把五根手指――拇指、食指、中指、无名指和小指分别编号为1，2，3，4和5，当它们按正常顺序排列时，形成了5位数12345，当你交换无名指和小指的位置时，会形成5位数12354，当你把五个手指的顺序完全颠倒时，会形成54321，在所有能够形成的120个5位数中，12345最小，它表示1；12354第二小，它表示2；54321最大，它表示120。下表展示了只有3根手指时能够形成的6个3位数和它们代表的数字：

三进制数
123
132
213
231
312
321

代表的数字
1
2
3
4
5
6

现在你有幸成为了第一个和火星人交流的地球人。一个火星人会让你看他的手指，科学家会告诉你要加上去的很小的数。你的任务是，把火星人用手指表示的数与科学家告诉你的数相加，并根据相加的结果改变火星人手指的排列顺序。输入数据保证这个结果不会超出火星人手指能表示的范围。

输入输出格式

输入格式：

输入文件martian.in包括三行，第一行有一个正整数N，表示火星人手指的数目（1 <= N <= 10000）。第二行是一个正整数M，表示要加上去的小整数（1 <= M <= 100）。下一行是1到N这N个整数的一个排列，用空格隔开，表示火星人手指的排列顺序。

输出格式：

输出文件martian.out只有一行，这一行含有N个整数，表示改变后的火星人手指的排列顺序。每两个相邻的数中间用一个空格分开，不能有多余的空格。

输入输出样例

输入样例#1：
5
3
1 2 3 4 5
输出样例#1：
1 2 4 5 3
说明
对于30%的数据，N<=15；
对于60%的数据，N<=50；
对于全部的数据，N<=10000；
noip2004普及组第4题

解法

对于一个全排列

P= A(1)，A(2)，A(3)，A(4)···A(i)····A(j)·····A(n);
那么 求 P的下一个排列
只需从排列的末尾向前找到第一个比左边大的数 设为A(i);
再从i+1 到 j中找到比A(i) 大的最小的哪一个数设为A(j)然后将A(i),A(j)交换位置，最后将i+1到n 的所有位翻转即可得到下一组字典序排列的排列。

代码如下

program p1088;
var f:array[1..10000] of longint;
    n,m,i,j,min,mj,loop:longint;
begin
 readln(n);
 readln(m);
 for i:=1 to n do read(f[i]);
 for loop:=1 to m do
  begin
   for i:=n-1 downto 1 do
    begin
     if f[i]1]
      then break;
    end;
   min:=maxlongint;
   for j:=i+1 to n do
    begin
     if (f[j]>f[i]) and (f[j]then
       begin
        mj:=j;
        min:=f[j];
       end;
    end;
   f[mj]:=f[i];
   f[i]:=min;
   for j:=i+1 to ((n+i+1) div 2) do
    begin
     min:=f[j];
     f[j]:=f[n+i+1-j];
     f[n+i+1-j]:=min;
    end;
  end;
 for i:=1 to n do write(f[i],' ');
end.

评测详情

  评测结果 Result

测试点 #1： 通过该测试点。 得分10，耗时0ms，内存3108kB。

测试点 #2： 通过该测试点。 得分10，耗时15ms，内存3137kB。

测试点 #3： 通过该测试点。 得分10，耗时0ms，内存3137kB。

测试点 #4： 通过该测试点。 得分10，耗时0ms，内存3137kB。

测试点 #5： 通过该测试点。 得分10，耗时0ms，内存3137kB。

测试点 #6： 通过该测试点。 得分10，耗时15ms，内存3137kB。

测试点 #7： 通过该测试点。 得分10，耗时0ms，内存3137kB。

测试点 #8： 通过该测试点。 得分10，耗时15ms，内存3137kB。

测试点 #9： 通过该测试点。 得分10，耗时0ms，内存3133kB。

测试点 #10： 通过该测试点。 得分10，耗时15ms，内存3174kB。

地址

洛谷P1088

time

现实总向着最坏的方向发展。
如若不去追寻，她总会把你落下。。