題目描述
人類終於登上了火星的土地並且見到了神秘的火星人。人類和火星人都無法理解對方的語言，但是我們的科學家發明了一種用數字交流的方法。這種交流方法是這樣的，首先，火星人把乙個非常大的數字告訴人類科學家，科學家破解這個數字的含義後，再把乙個很小的數字加到這個大數上面，把結果告訴火星人，作為人類的回答。
火星人用一種非常簡單的方式來表示數字――掰手指。火星人只有乙隻手，但這只手上有成千上萬的手指，這些手指排成一列，分別編號為1，2，3……。火星人的任意兩根手指都能隨意交換位置，他們就是通過這方法計數的。
乙個火星人用乙個人類的手演示了如何用手指計數。如果把五根手指――拇指、食指、中指、無名指和小指分別編號為1，2，3，4和5，當它們按正常順序排列時，形成了5位數12345，當你交換無名指和小指的位置時，會形成5位數12354，當你把五個手指的順序完全顛倒時，會形成54321，在所有能夠形成的120個5位數中，12345最小，它表示1；12354第二小，它表示2；54321最大，它表示120。下表展示了只有3根手指時能夠形成的6個3位數和它們代表的數字：
三進製數
123132
213231
312321
代表的數字12
3456
現在你有幸成為了第乙個和火星人交流的地球人。乙個火星人會讓你看他的手指，科學家會告訴你要加上去的很小的數。你的任務是，把火星人用手指表示的數與科學家告訴你的數相加，並根據相加的結果改變火星人手指的排列順序。輸入資料保證這個結果不會超出火星人手指能表示的範圍。
輸入輸出格式
輸入格式：
輸入檔案martian.in包括三行，第一行有乙個正整數n，表示火星人手指的數目（1
<= n <= 10000）。第二行是乙個正整數m，表示要加上去的小整數（1
<= m <= 100）。下一行是1到n這n個整數的乙個排列，用空格隔開，表示火星人手指的排列順序。
輸出格式：
輸出檔案martian.out只有一行，這一行含有n個整數，表示改變後的火星人手指的排列順序。每兩個相鄰的數中間用乙個空格分開，不能有多餘的空格。
輸入樣例：53
1234
5輸出樣例：12
453題解：這道題用排列，最好用遞迴或回溯。
var a:array [0..10001] of longint;
n,m,i,p,q:longint;
procedure
swap
(var a,b:longint);
var t:longint;
begin
t:=a;
a:=b;
b:=t;
end;
procedure
kp(l,r:longint);
var i,j,x:longint;
begin
i:=l;
j:=r;
x:=a[(l+r) div
2]; repeat
while a[i]do inc(i);
while xdo dec(j);
if i<=j then
begin
swap(a[i],a[j]);
inc(i);
dec(j);
end;
until i>j;
if ithen kp(i,r);
if lthen kp(l,j);
end;
begin
readln(n);
readln(m);
for i:=1
to n do
read(a[i]);
for i:=1
to m do
begin
p:=n-1;
while a[p]>a[p+1] do dec(p);
q:=p+1;
while (q<=n) and (a[q]>a[p]) do
inc(q);
dec(q);
swap(a[p],a[q]);
kp(p+1,n);
end;
for i:=1
to n-1
dowrite(a[i],' ');
writeln(a[n]);
end.
洛谷1088 火星人
人類終於登上了火星的土地並且見到了神秘的火星人。人類和火星人都無法理解對方的語言，但是我們的科學家發明了一種用數字交流的方法。這種交流方法是這樣的，首先，火星人把乙個非常大的數字告訴人類科學家，科學家破解這個數字的含義後，再把乙個很小的數字加到這個大數上面，把結果告訴火星人，作為人類的回答。火星人用...
洛谷 P1088 火星人
題目描述 人類終於登上了火星的土地並且見到了神秘的火星人。人類和火星人都無法理解對方的語言，但是我們的科學家發明了一種用數字交流的方法。這種交流方法是這樣的，首先，火星人把乙個非常大的數字告訴人類科學家，科學家破解這個數字的含義後，再把乙個很小的數字加到這個大數上面，把結果告訴火星人，作為人類的回答...
洛谷 P1088 火星人
題目描述 人類終於登上了火星的土地並且見到了神秘的火星人。人類和火星人都無法理解對方的語言，但是我們的科學家發明了一種用數字交流的方法。這種交流方法是這樣的，首先，火星人把乙個非常大的數字告訴人類科學家，科學家破解這個數字的含義後，再把乙個很小的數字加到這個大數上面，把結果告訴火星人，作為人類的回答...