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