码迷,mamicode.com
首页 > 其他好文 > 详细

vijos p1071新年趣事之打牌

时间:2014-07-07 23:13:03      阅读:258      评论:0      收藏:0      [点我收藏+]

标签:style   blog   http   color   数据   os   

描述

过年的时候,大人们最喜欢的活动,就是打牌了。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代码:
bubuko.com,布布扣
 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.                  
View Code

 

vijos p1071新年趣事之打牌,布布扣,bubuko.com

vijos p1071新年趣事之打牌

标签:style   blog   http   color   数据   os   

原文地址:http://www.cnblogs.com/zyfzyf/p/3812782.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!