265 条题解
-
0chc@001 LV 7 @ 2008-10-04 15:50:00
我误把某一城堡 当前积木块高度用 当前可达到最大高度替代
竟然过了3个点!
导致我查了半天…… -
02008-10-09 16:47:39@
var i,j,k,l,m,n:longint;
a:array[-5..105,-5..105] of longint;
sel:array[-5..105,-5..105] of boolean;
ch:char;
procedure sc(x,y:longint);
var g,t:longint;
begin
sel[x,y]:=true;
if not sel[x,y-2] then if a[x,y-2]=1 then sc(x,y-2);
if not sel[x,y-1] then if a[x,y-1]=1 then sc(x,y-1);
if not sel[x,y+1] then if a[x,y+1]=1 then sc(x,y+1);
if not sel[x,y+2] then if a[x,y+2]=1 then sc(x,y+2);
if not sel[x-2,y] then if a[x-2,y]=1 then sc(x-2,y);
if not sel[x-1,y] then if a[x-1,y]=1 then sc(x-1,y);
if not sel[x+1,y] then if a[x+1,y]=1 then sc(x+1,y);
if not sel[x+2,y] then if a[x+2,y]=1 then sc(x+2,y);
if not sel[x-1,y-1] then if a[x-1,y-1]=1 then sc(x-1,y-1);
if not sel[x-1,y+1] then if a[x-1,y+1]=1 then sc(x-1,y+1);
if not sel[x+1,y-1] then if a[x+1,y-1]=1 then sc(x+1,y-1);
if not sel[x+1,y+1] then if a[x+1,y+1]=1 then sc(x+1,y+1);
end;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(ch);
if ch='#' then a:=1;
end;
readln;
end;
for i:=1 to n do
for j:=1 to m do
if (a=1) and (not sel) then
begin
inc(k);
sc(i,j);
end;
writeln(k);
end. -
02008-09-28 14:06:56@
咋看不象是动态规划...
其实的确不是很严格的DP...
其实,看这个题目就了解,只要把每个城堡可以到达的所有高度求出,然后看哪个高度是所有城堡共有的,输出就可以,否则就是0.
本题的关键就是把每个城堡可以到达的所有高度求出,其实有很多种方法.
这里就说DP吧,可以用01背包的思想,先计算出体积和最小的的城堡,然后将其他城堡的积木放入这个minv的背包里.在这里,价值和体积都等于每个积木的体积.然后,AC
-
02008-09-23 12:50:44@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 88ms
├ 测试数据 10:答案正确... 88ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:176ms -
02008-09-20 19:16:16@
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:运行超时...
├ 测试数据 10:答案正确... 103ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:90 有效耗时:103ms谁能告诉我为什么?
为什么那么多人都栽在这个数据上? -
02008-09-19 13:10:22@
此题相当Rp...
90分3次后终于AC
交的一模一样的程序...
大家可以看此题的记录. -
02008-09-18 21:24:05@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 56ms
├ 测试数据 10:运行超时...
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:90 有效耗时:56ms -
02008-09-15 20:58:52@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 41ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 134ms
├ 测试数据 09:答案正确... 759ms
├ 测试数据 10:答案正确... 728ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:1662ms -
02008-09-14 08:57:22@
这道题我想窘了.........
我居然以为是那些移下来的木块还要组成城堡.........编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:运行超时...
├ 测试数据 10:答案正确... 384ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:90 有效耗时:384ms
VIJOS DELPHIN过不了编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 119ms
├ 测试数据 10:答案正确... 119ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:238msVIJOS TIGER一出就过了
-
02008-09-11 20:22:24@
最大高度
可能大于5050么 -
02008-09-11 20:09:34@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 119ms
├ 测试数据 10:答案正确... 103ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:222ms
怎么会这么大,但还是过了,哈哈》。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 -
02008-09-11 13:10:37@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 56ms
├ 测试数据 09:答案正确... 259ms
├ 测试数据 10:答案正确... 228ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:543ms -
02008-09-10 23:00:03@
测试数据 09:答案正确... 103ms
├ 测试数据 10:答案正确... 103ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:206ms参考LS的程序还不能一次AC,这实在是一件相当MMD的事情
感觉DP完全用不着,搜索就过了
-
02008-09-10 09:07:35@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 9ms
├ 测试数据 10:答案正确... 72ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:81ms
var
f:array[1..100,0..10000]of boolean;
h:array[1..100]of longint;
maxh,i,j,l,n:longint;
ok:boolean;
begin
readln(n);
fillchar(f,sizeof(f),false);
fillchar(h,sizeof(h),0);
for i:=1 to n do f:=true;
for i:=1 to n do
begin
read(l);
repeat
这句是关键: for j:=h[i] downto 0 do
if f then f:=true;
inc(h[i],l);
read(l);
until l=-1;
end;
maxh:=0;
for i:=1 to n do
if h[i]>maxh then maxh:=h[i];
for i:=maxh downto 0 do
begin
ok:=true;
for j:=1 to n do
if not f[j,i] then begin ok:=false;break;end;
if ok then begin writeln(i);break;end;
end;
end. -
02008-09-07 13:03:33@
通过 1807人
提交 6666次
(2008/9/7 13:06)
很好很强大 -
02008-09-04 13:08:45@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 509ms
├ 测试数据 10:答案正确... 197ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:706ms -
02008-09-01 18:15:07@
为什么在FLAG中显示我AC了,可是我最高分却只有90分
并且我用同一个程序提了n次,分数都不一样(主要是超的点不一样)
评测机有问题吗? -
02008-08-29 17:39:22@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 87ms
├ 测试数据 09:答案正确... 415ms
├ 测试数据 10:答案正确... 384ms
Accepted 有效得分:100 有效耗时:886ms -
02008-08-27 13:48:42@
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 572ms
├ 测试数据 09:答案正确... 119ms
├ 测试数据 10:答案正确... 666ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分:100 有效耗时:1357ms -
02008-08-24 14:50:08@
/*极限数据过不了,超时!!!*/
#include
#include
using namespace std;
bool f[101][5051];
int an[101];
main()
{int i,j,n,x,ij,ii,max,min=600000,t;
scanf("%d",&n);
memset(f,false,sizeof(f));
for (i=1;i=1;i--){
t=1;
for (j=1;j