vijos-p1071 2008.11.9

vijos-p1071 2008.11.9

心得：1.这是一道记录路径的背包问题

      2.记录下那个重量可以达到可以用boolean;若，想记录有几种到达方案的话，就给f[0]:=1，红色！

描述 Description  

过年的时候，大人们最喜欢的活动，就是打牌了。xiaomengxian不会打牌，只好坐在一边看着。

这天，正当一群人打牌打得起劲的时候，突然有人喊道：“这副牌少了几张！”众人一数，果然是少了。于是这副牌的主人得意地说：“这是一幅特制的牌，我知道整副牌每一张的重量。只要我们称一下剩下的牌的总重量，就能知道少了哪些牌了。”大家都觉得这个办法不错，于是称出剩下的牌的总重量，开始计算少了哪些牌。由于数据量比较大，过了不久，大家都算得头晕了。

这时，xiaomengxian大声说：“你们看我的吧！”于是他拿出笔记本电脑，编出了一个程序，很快就把缺少的牌找了出来。

如果是你遇到了这样的情况呢？你能办到同样的事情吗？

输出格式 Output Format 

如果无解，则输出“0”；如果有多解，则输出“-1”；否则，按照升序输出丢失的牌的编号，相邻两个数之间用一个空格隔开。

样例输入 Sample Input  

270

4

100

110

170

200

样例输出 Sample Output  

24

 

注释 Hint 

Sampleinput #2

270

4

100

110

160

170

 

Sampleoutput #2

-1

 

Sampleinput #3

270

4

100

120

160

180

 

Sampleoutput #3

0

program P1071;
const
maxw=100010;
maxn=110;
var
path,opt:array[0..maxw] of int64;
w:array[0..maxn] of longint;
ans:array[0..maxn] of boolean;
n,total:longint;
procedure init;
var
i:longint;
begin
read(total);
read(n);
for i:=1 to n do
   read(w[i]);
end;
procedure main;
var
i,j:longint;
begin
fillchar(opt,sizeof(opt),0);
fillchar(ans,sizeof(ans),true);
opt[0]:=1;
for i:=1 to n do
   for j:=total downto w[i] do
    if opt[j-w[i]]>0 then
     begin
      if opt[j]=0 then
       path[j]:=i;                      {只有当前状态没求过才记录方案}
      inc(opt[j],opt[j-w[i]]);//记录下是重量j的解的个数
     end;
if opt[total]=0 then
   begin
    writeln('0');
    halt;
   end;
if opt[total]>1 then
   begin
    writeln('-1');
    halt;
   end;
i:=total;
while i>0 do
   begin
    ans[path[i]]:=false;
   i:=i-w[path[i]];
   end;
end;
procedure print;
var
i:longint;
begin
for i:=1 to n do
   if ans[i] then write(i,' ');
end;
begin
init;
main;
print;
end.