标签：style blog http color 数据 os
过年的时候，大人们最喜欢的活动，就是打牌了。xiaomengxian不会打牌，只好坐在一边看着。
这天，正当一群人打牌打得起劲的时候，突然有人喊道：“这副牌少了几张！”众人一数，果然是少了。于是这副牌的主人得意地说：“这是一幅特制的牌，我知道整副牌每一张的重量。只要我们称一下剩下的牌的总重量，就能知道少了哪些牌了。”大家都觉得这个办法不错，于是称出剩下的牌的总重量，开始计算少了哪些牌。由于数据量比较大，过了不久，大家都算得头晕了。
这时，xiaomengxian大声说：“你们看我的吧！”于是他拿出笔记本电脑，编出了一个程序，很快就把缺少的牌找了出来。
如果是你遇到了这样的情况呢？你能办到同样的事情吗？
第一行一个整数TotalW，表示剩下的牌的总重量。
第二行一个整数N（1<N<=100），表示这副牌有多少张。
接下来N行，每行一个整数Wi（1<=Wi<=1000），表示每一张牌的重量。
如果无解，则输出“0”；如果有多解，则输出“-1”；否则，按照升序输出丢失的牌的编号，相邻两个数之间用一个空格隔开。
各个测试点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
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] do 10 begin 11 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) do 18 begin 19 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.
vijos p1071新年趣事之打牌,布布扣,bubuko.com
标签：style blog http color 数据 os
原文地址：http://www.cnblogs.com/zyfzyf/p/3812782.html
