新年趣事之打牌
来源:
【问题描述】
这天,正当一群人打牌打得起劲的时候,突然有人喊道:“这副牌少了几张!”众人一数,果然是少了。于是这副牌的主人得意地说:“这是一幅特制的牌,我知道整副牌每一张的重量。只要我们称一下剩下的牌的总重量,就能知道少了哪些牌了。”大家都觉得这个办法不错,于是称出剩下的牌的总重量,开始计算少了哪些牌。由于数据量比较大,过了不久,大家都算得头晕了。
这时,xiaomengxian大声说:“你们看我的吧!”于是他拿出笔记本电脑,编出了一个程序,很快就把缺少的牌找了出来。
如果是你遇到了这样的情况呢?你能办到同样的事情吗?
【输入文件】
第二行一个整数N(1<N<=100),表示这副牌有多少张。
接下来N行,每行一个整数Wi(1<=Wi<=1000),表示每一张牌的重量。
【输出文件】
【输入样例】
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.