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.