var ar:array[1..18,1..3] of longint;

aa:array[1..10] of longint;

m,n,k:integer;

v,mm:longint;

procedure hs(c:integer);

var a,b,i,j,k1:integer; t,mm1:longint; p:boolean;

begin

p:=true;mm1:=0;

for i:=c to m do begin

for j:=ar to ar-1 do

if aa[j]+ar>v then p:=false;

if p then begin

for j:=ar to ar-1 do aa[j]:=aa[j]+ar;

hs(c+1);

p:=true; for j:=ar to ar-1 do aa[j]:=aa[j]-ar;

end; end;

for k1:=1 to n do mm1:=mm1+aa[k1];

if mm1>mm then mm:=mm1;

end;

begin

readln(n,m,v);

for k:=1 to m do

readln(ar[k,1],ar[k,2],ar[k,3]);

for k :=1 to 9 do aa[k]:=0;

mm:=0;

hs(1);

writeln(mm);

end.

{编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

}

我为什么超时？？？？~~~~~~~~~~~~回溯怎么不行？

通过 　　370人

提交 　　1111次

通过率 　　33%

难度 　　0

疯狂的题目...

伤心了…………

我少加了1

没一次A

给我豆腐，我撞死啊··！！！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

一开始

for i:=a[] to b[] do

10分 可以过样例

改成for i:=a[]+1 to b[] do

AC了

搜索。。。回溯。。。

………………数据大的话可以考虑线段树。可是这个数据实在是穷极小！！！搜吧。

对于此题我啥都不说了......

操

这也可以模拟？？？？

这个题也可以用模拟吗

我直接晕了

应该算作动归啊

直接晕倒

AC第8题

#include

main()

{

}

我裸裸的来，，正如我裸裸的AC

O(2^n)的算法可以承受到22左右。。这道题只有18

这题怎么模拟？不用搜索。。。

要是明天的复赛也有这种题目就好了

这道题是个好题

很多搜索都这样

真是的，直接深度搜索都能0ms通过……

不过，如果数据大点，要怎么做呢？

请各位大牛赐教。

这貌似是搜索吧？

怎么放在模拟里面？？？？？

第6个和第十个数据是什么呀？老不过

这辈子做过的最暴力的题了，YYing......