谁帖一个比较牛的算法？

人不暴力枉少年啊！！！

先看这题的难度和通过率.我马上便开始苦思..结果想了半天也没想到杂搜..

算了看下题解先..

不看不知道...

汗...N个人交表....

但这也给我个提示..以后碰到这种晕题就手算交表

囧。。。第一写竟然光去写暴搜的过程了，忘了写readln(n)。

还好搜过了。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：153ms

好效率

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

拒绝交表 随机化万岁

庆祝随机化第一题

但可以看到 随机得多时间是很卡的 随机得少有两个比较特殊的点是会出错的～

我这个程序，调试了很多次随机次数卡得差不多刚好。。。但rp不好的话还是会wa的

希望有更好的程序。。

program vj1146;

var

a,b:array[0..25]of boolean;

xl:array[1..25]of longint;

map:array[1..5,1..5]of integer;

i,j,k,l,m,n:longint;

begin

randomize;

readln(n);

for j := 1 to 25 do

begin

k:=random(25);

while b[k] do

k:=random(25);

b[k]:=true;

xl[j]:=k;

end;

for i := 1 to 90000 do

begin

fillchar(b,sizeof(b),false);

fillchar(map,sizeof(map),0);

for l := 1 to 25 do

begin

j:=random(25)+1;

k:=random(25)+1;

m:=xl[j];

xl[j]:=xl[k];

xl[k]:=m;

end;

for j := 1 to n do

map[xl[j] div 5 +1,xl[j] mod 5 +1]:=1;

k:=0;

for j := 1 to 5 do

if map[j,1]+map[j,2]+map[j,3]+map[j,4]+map[j,5]=5 then inc(k);

for j := 1 to 5 do

if map[1,j]+map[2,j]+map[3,j]+map[4,j]+map[5,j]=5 then inc(k);

if map[1,1]+map[2,2]+map[3,3]+map[4,4]+map[5,5]=5 then inc(k);

if map[1,5]+map[2,4]+map[3,3]+map[4,2]+map[5,1]=5 then inc(k);

a[k]:=true;

end;

k:=0;

for i := 1 to 25 do

if a[i] then inc(k,i);

writeln(k);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：908ms

通过的第三十题！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：719ms

TLE多次后... 搜索+剪枝+减少运算量过

关于手动枚举的一些提示

1.如果要让棋子形成尽量多的5个一列,先摆两个对角线,再找出最接近5个一列的某一列

(先找差一个的,如果没有再找差两个的...)进行摆放.

2.当棋子小于等于20个时均可形成0列或1列的情况,大于20则不行,枚举时需扣除

20个棋子0列(改一下就是1列)

0000*

000*0

00*00

0*000

*0000

棋子 21 22 23 24 25

最少列数2 4 6 8 12

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

n

手动枚举八

搜索+剪枝=AC。 我现在才发现那些交表的人好恶

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：2640ms

时间有点可怕！！！

这题还不简单。暴力法

const a:array[1..25] of longint=(0,0,0,0,1,1,1,1,3,3,3,6,6,10,10,15,21,21,28,28,35,30,30,27,12);

var n:longint;

begin

readln(n);

writeln(a[n]);

end.

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

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

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

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

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

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

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

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

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

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

题目只是说单个的k不超过12。。。而要求输出的是k的总合

编译通过...

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

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

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

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

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

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

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

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

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

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

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

Accepted 有效得分：100 有效耗时：0ms

事实上，k的范围超过了12……

而题目中却说“显然1

const

a:array[5..25] of integer=(1,1,1,1,3,3,3,6,6,6,10,15,21,21,28,28,35,30,30,27,12);

var

n:integer;

begin

read(n);

writeln(a[n]);

end.

var

n,k:integer;

begin

readln(n);

case n of

0..4:k:=0;

5..8:k:=1;

9..11:k:=3;

12..13:k:=6;

14..15:k:=10;

16:k:=15;

17..18:k:=21;

19..20:k:=28;

21:k:=35;

22..23:k:=30;

24:k:=27;

25:k:=12;

end;

writeln(k);

end.

无奈,只好用这种'***|*'方法~~~~~~~~

暴力解决后，再交常量表。