数字游戏

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

DataConstraint

Hint

【样例说明】
其他的数列经过以上运算，可能也能得到相同的结果，比如说3 2 1 4，但所有符合条件的数字串中，3 1 2 4是字典序最小的一个。

 

分析：直接暴力好像都可以。但是我们可以稍加优化。我们可以知道，接过每项乘以杨辉三角的第N行就是最终结果。（例如：3*1+1*4+2*4+4*1=16）就可以少用一个循环求最终结果。

 

程序：

<span style="font-size:18px;">var
 b:array [1..10] of boolean;
 a:Array [1..10] of longint;
 f:array [0..10,0..10] of longint;
 n,m,i,j:longint;
procedure dfs(x:longint);
 var i,t:longint;
begin
if x=n+1 then
 begin
  t:=0;
  for i:=1 to n do
   t:=t+f[n,i]*a[i];
  if t=m then
   begin
    for i:=1 to n-1 do
     write(a[i],' ');
     write(a[n]);
    halt;
   end
  else exit;
 end;
 for i:=1 to n do
  if b[i]=false then
   begin
    b[i]:=true;
    a[x]:=i;
    dfs(x+1);
    b[i]:=false;
   end;
end;

begin
 readln(n,m);
 f[1,1]:=1;
 for i:=2 to n do
  for j:=1 to i do
   f[i,j]:=f[i-1,j]+f[i-1,j-1];
 dfs(1);
end.
</span>