JZOJ8.13数字游戏

题目：FJ和他的奶牛们喜欢玩一种数字游戏：他们按某种顺序在纸上写下1～N(1<=N<=10)之间的所有数，然后把相邻的数字相加，得到一个比原数列少一项的数列。对新数列重复上述的操作，直到整个数列只剩一个数为止。N=4的时候，整个游戏的流程可能如下所示：

3 1 2 4
4 3 6
7 9
16
奶牛们很快不满足于这种简单的游戏，于是她们背着FJ玩起了另一个版本：对于给定的N以及最后剩下的数，求初始的数列。不幸的是，由于FJ的数学学得不是很好，这个游戏对于他来说是有些难度的。

请你写个程序来帮助FJ玩这个游戏，以保持他在奶牛们心中的地位。

这道题目也没什么很优美的想法，直接暴力啦。用一个DFS（记得回溯）来寻找关于N序列的全排列，找到一种就判断，因为是从1111开始找的，最先找到的一定是字典序最小的，所以不用管优先级别，比较水。

附上代码：

const
  maxn=10;

var
  num,memory,add:array [0..maxn] of longint;
  v:array [0..maxn] of boolean;
  n,final:longint;

procedure init;
begin
  readln(n,final);
end;

function work:boolean;
var
  i,temp:longint;
begin
  memory:=num;
  temp:=n;
  while temp<>1 do
    begin
      for i:=1 to temp-1 do
        add[i]:=memory[i]+memory[i+1];
      memory:=add;
      temp:=temp-1;
    end;
  if memory[1]=final then
    exit(true);
  exit(false);
end;

procedure dfs(dep:longint);
var
  i:longint;
begin
  if dep=n then
    if work then
      begin
        for i:=1 to n do
          write(num[i],' ');
        halt;
      end;
  for i:=1 to n do
    if not v[i] then
      begin
        v[i]:=true;
        num[dep+1]:=i;
        dfs(dep+1);
        v[i]:=false;
      end;
end;

begin
  init;
  dfs(0);
end.