vijos p1071新年趣事之打牌
2024-10-19 03:32:07
描述
过年的时候,大人们最喜欢的活动,就是打牌了。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
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.
最新文章
- 如何配置Linux系统的网络IP地址
- REGEXP 正则的实现两个字符串组的匹配。(regexp)
- Qt 官方一键动态发布技能
- Effective Java 69 Prefer concurrency utilities to wait and notify
- Nginx配置文件nginx.conf中文详解(总结)
- C#多线程学习之(五)使用定时器进行多线程的自动管理
- JMS消息类型模型
- 映射请求到Servlet
- css中文字体解决方案
- gitalk报错问题
- 一个二维码如何自动识别是安卓(Android)还是苹果(IOS)
- 在Fiddler中添加自己所需的显示列
- Vue.js是什么,vue介绍
- ViewPager源码分析——滑动切换页面处理过程
- 南方IT教材反馈
- idea列表
- sqlserver 的一些好用的插件
- 在windows下MySQL-python的安装
- 【[SDOI2011]拦截导弹】
- 【译】PHP中的Session及其一些安全措施