首页 > 代码库 > vijos p1071新年趣事之打牌

vijos p1071新年趣事之打牌

2024-07-09 23:51:04   216人阅读

描述

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

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

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

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

格式

输入格式

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

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

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

输出格式

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

样例1

样例输入1[复制]

 
2704100110170200

样例输出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代码：
 1 var n,i,j,tot,ans:longint; 2     a,f,g:array[0..10000] of longint; 3     p:array[0..10000]of boolean; 4 begin 5 readln(tot); 6 readln(n);f[0]:=1; 7 for i:=1 to n do readln(a[i]); 8 for i:=1 to n do 9  for j:=tot downto a[i] do10   begin11   if (f[j-a[i]]>0) and (f[j]=0) then g[j]:=i;12   f[j]:=f[j]+f[j-a[i]];13   end;14 i:=tot;15 if f[tot]>1 then begin writeln(‘-1‘);halt;end;16 if f[tot]=0 then begin writeln(‘0‘);halt;end;17 while (i>0) and (g[i]<>0) do18  begin19  p[g[i]]:=true;20  i:=i-a[g[i]];21  end;22 for i:=1 to n do if not p[i] then write(i,‘ ‘);23 end.
View Code

 


联系
我们