2032. 数字游戏 (Standard IO)

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.