vijos p1071新年趣事之打牌

描述

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

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

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

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

格式

输入格式

第一行一个整数TotalW，表示剩下的牌的总重量。

第二行一个整数N（1<N<=100），表示这副牌有多少张。

接下来N行，每行一个整数Wi（1<=Wi<=1000），表示每一张牌的重量。

输出格式

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

样例1

样例输入1[复制]

 

270
4
100
110
170
200

样例输出1[复制]

 

2 4

限制

各个测试点1s

提示

Sample input #2
270
4
100
110
160
170

Sample output #2
-1

Sample input #3
270
4
100
120
160
180

Sample output #3
0

AC代码：

var n,i,j,tot,ans:longint;
    a,f,g:array[0..10000] of longint;
    p:array[0..10000]of boolean;
begin
readln(tot);
readln(n);f[0]:=1;
for i:=1 to n do readln(a[i]);
for i:=1 to n do
 for j:=tot downto a[i] do
  begin
  if (f[j-a[i]]>0) and (f[j]=0) then g[j]:=i;
  f[j]:=f[j]+f[j-a[i]];
  end;
i:=tot;
if f[tot]>1 then begin writeln('-1');halt;end;
if f[tot]=0 then begin writeln('0');halt;end;
while (i>0) and (g[i]<>0) do
 begin
 p[g[i]]:=true;
 i:=i-a[g[i]];
 end;
for i:=1 to n do if not p[i] then write(i,' ');
end.