新年趣事之打牌

 

新年趣事之打牌

来源：  vijos P1071

【问题描述】

    过年的时候，大人们最喜欢的活动，就是打牌了。xiaomengxian不会打牌，只好坐在一边看着。
　　这天，正当一群人打牌打得起劲的时候，突然有人喊道：“这副牌少了几张！”众人一数，果然是少了。于是这副牌的主人得意地说：“这是一幅特制的牌，我知道整副牌每一张的重量。只要我们称一下剩下的牌的总重量，就能知道少了哪些牌了。”大家都觉得这个办法不错，于是称出剩下的牌的总重量，开始计算少了哪些牌。由于数据量比较大，过了不久，大家都算得头晕了。
　　这时，xiaomengxian大声说：“你们看我的吧！”于是他拿出笔记本电脑，编出了一个程序，很快就把缺少的牌找了出来。
　　如果是你遇到了这样的情况呢？你能办到同样的事情吗？

【输入文件】

    第一行一个整数TotalW，表示剩下的牌的总重量。
　　第二行一个整数N（1<N<=100），表示这副牌有多少张。
　　接下来N行，每行一个整数Wi（1<=Wi<=1000），表示每一张牌的重量。

【输出文件】

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

 

【输入样例】

270

4

100

110

170

200

【输出样例】

2 4

======================

==========================

{
ID:jie19952
PROG:
LANG:PASCAL
}
var
  totalw:longint;
  n:longint;
  w:array[1..1000]of longint;
  f:array[0..100000]of longint;
  g,g1:array[0..100000]of longint;
  ans:array[1..1000]of boolean;
procedure init;
begin
  assign(input,'bag.in');
  assign(output,'bag.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure print(t:longint);
begin
  if g[t]<>0 then print(g[t]);
  ans[g1[t]]:=false;
end;

procedure main;
var
  i,j:longint;
begin
  readln(totalw);
  readln(n);
  for i:=1 to n do read(w[i]);

  fillchar(g,sizeof(g),$ff);
  fillchar(f,sizeof(f),0);
  f[0]:=1;
  for i:=1 to n do
    for j:=totalw downto w[i] do
       if f[j-w[i]]<>0 then
        begin
          f[j]:=f[j]+f[j-w[i]];
          if f[j]=1 then
            begin
              g1[j]:=i;
              g[j]:=j-w[i];
            end;
        end;
  if f[totalw]=0 then
    begin
      writeln(0);
      terminate;
    end
    else
      begin
        if f[totalw]>1 then
          begin
            writeln(-1);
          end
          else
          begin
            fillchar(ans,sizeof(ans),true);
            print(totalw);
            for i:=1 to n do
              if ans[i] then write(i,' ');
          end
      end;
end;

begin
  init;
  main;
  terminate;
end.