Description
FJ和他的奶牛们喜欢玩一种数字游戏:他们按某种顺序在纸上写下1~N(1<=N<=10)之间的所有数,然后把相邻的数字相加,得到一个比原数列少一项的数列。对新数列重复上述的操作,直到整个数列只剩一个数为止。N=4的时候,整个游戏的流程可能如下所示:
3 1 2 4
4 3 6
7 9
16
奶牛们很快不满足于这种简单的游戏,于是她们背着FJ玩起了另一个版本:对于给定的N以及最后剩下的数,求初始的数列。不幸的是,由于FJ的数学学得不是很好,这个游戏对于他来说是有些难度的。
请你写个程序来帮助FJ玩这个游戏,以保持他在奶牛们心中的地位。
Input
第1行: 包括2个用空格隔开的整数:N和这N个数字经过运算后的最终结果
Output
第1行: 输出一个完整包含1~N的长度为N的数列,它经过若干次相邻数加和的运算后能够得到输入中要求的结果。如果有多个数列符合要求,输出字典序最小的一个。也就是说,数列中位置靠前的数字要尽量小。
Sample Input
4 16
Sample Output
3 1 2 4
【样例说明】
其他的数列经过以上运算,可能也能得到相同的结果,比如说3 2 1 4,但所有符合条件的数字串中,3 1 2 4是字典序最小的一个。
题解
以字典顺序全排列,每得出一个就模拟算出是否与输入的结果相等,如果相等就直接可以结束了。
代码
var
a,b:array[0..20] of longint;
i,j,n,m,x,y,temp,min,ans,sum:longint;
begin
readln(n,m);
for i:=0 to n do
a[i]:=i;
while a[0]=0 do
begin
b:=a;
for i:=1 to n-1 do
begin
for j:=1 to n-i+1 do
b[j]:=b[j]+b[j+1];
end;
if b[1]=m then
begin
for i:=1 to n do
write(a[i],' ');
halt;
end;
j:=n;
while a[j]<a[j-1] do
j:=j-1;
min:=j;
for i:=j+1 to n do
if (a[i]>a[j-1]) and (a[i]<a[min]) then min:=i;
temp:=a[j-1];
a[j-1]:=a[min];
a[min]:=temp;
for x:=j to n-1 do
for y:=x+1 to n do
if a[x]>a[y] then
begin
temp:=a[x];
a[x]:=a[y];
a[y]:=temp;
end;
end;
end.