比较恶心……判断多解..我开了四个数组，分别是

不采用当前点能达到的

XXX在不采用当前点的情况下就不能达到

XXX在不采用当前点的情况下不会重复

重复的解

汗……

tolql1993

第九个数据的sum超出integer的范围

枚举状态时若变量i为integer，那么会201错误。结果输出0

偶要撞墙了...为判断-1的情况想了一个晚上= =|||

结果后来一个数组就over了...

第四组数据太让人吐血了。。。。。。想了一晚上。。。。用DP就行过了9组

这题居然可以搜索+卡时

爽，爽啊

vijos数据出得懒...

建议大家不要做这题

数据除了2个不是0，-1外，全部是0或者-1

W可以有5001那么大

背包dp时记录路径即可

为什么第九个数据过不去?

URAL的原题

居然连样例都没改

http://acm.timus.ru/problem.aspx?space=1&num=1244

直接提交以前写的代码 AC

NOIP2001普及组：装箱问题（P1133）……

0-1背包貌似可以解决...

注意考虑清楚,速度还可以,都是0ms.

一开始不知怎么的想起了先排序(真笨),去了ac

上帝啊，谁能告诉我，test4 和 8是什么啊！！！test 4的答案难道不是1吗？。。。

太有趣了，我用背包问题的方法搜索都可以！只加些小剪枝

对于wa on test 4 的，恶心人的数据：

4

3

2

3

1

如果这个没过，调试一下试试

和积木城堡的DP基本一样

var n,i,j,totalw,ans:longint;
w,f,g:array[0..10000] of longint;
p:array[0..10000] of boolean;
begin
readln(totalw);
readln(n);
f[0]:=1;
for i:=1 to n do read(w[i]);
for i:=1 to n do
for j:=totalw downto w[i] do
begin
if (f[j-w[i]]>0) and (f[j]=0) then g[j]:=i;
f[j]:=f[j]+f[j-w[i]];
end;
i:=totalw;
if f[totalw]>1 then begin writeln(-1); halt; end;
if f[totalw]=0 then begin writeln(0); halt; end;
while (i>0) and (g[i]<>0) do
begin
p[g[i]]:=true;
i:=i-w[g[i]];
end;
for i:=1 to n do if not p[i] then write(i,' ');
readln;
end.

WA的看这组数据
输入：
3072
10
160
531
64
498
188
933
811
5
879
83
输出：
3 6 10

var
i,j,n,k,b:longint;
f:boolean;
begin
readln(n); f:=false;
for k:=1 to n do
begin
for b:=1 to k do
begin
n:=n-1;
if n=0 then begin f:=true;i:=b;break; end;
end;
if f then begin j:=k;break; end;
end;
if j mod 2=0 then writeln(i,'/',j-i+1)
else writeln(j-i+1,'/',i);
end.