jzoj 2032. 数字游戏

发布于 2019-03-27  5 次阅读


题目描述

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

3 1 2 4
4 3 6
7 9
16
奶牛们很快不满足于这种简单的游戏,于是她们背着FJ玩起了另一个版本:对于给定的N以及最后剩下的数,求初始的数列。不幸的是,由于FJ的数学学得不是很好,这个游戏对于他来说是有些难度的。
请你写个程序来帮助FJ玩这个游戏,以保持他在奶牛们心中的地位。

输入

第1行: 包括2个用空格隔开的整数:N和这N个数字经过运算后的最终结果

输出

第1行: 输出一个完整包含1~N的长度为N的数列,它经过若干次相邻数加和的运算后能够得到输入中要求的结果。如果有多个数列符合要求,输出字典序最小的一个。也就是说,数列中位置靠前的数字要尽量小。

思路

暴力求出当前长度的全排列,然后加起来看看是不是要的结果,是的话直接输出然后终止程序就可以了

var
   a,o:array[0..20] of longint;
   i,j,n,x,y,temp,min,m,s:longint;
begin
     readln(n,m);
     for i:=0 to n do
         a[i]:=i;
     while a[0]=0 do
     begin
          s:=0;
          o:=a; 
          for i:=1 to n-1 do
            begin
              for j:=1 to n-i+1 do
              o[j]:=o[j]+o[j+1];
            end;
          s:=o[1];
          if s=m then begin
                        for i:=1 to n-1 do
                          write(a[i],' ');
                        writeln(a[n]);
                        halt;
                      end;

          j:=n;
          while a[j]a[j-1]) and (a[i]a[y] then
                  begin
                       temp:=a[x];
                       a[x]:=a[y];
                       a[y]:=temp;
                  end;
     end;
end.
]]>