73 条题解
-
0
EZ_lzh LV 10 @ 2009-05-17 21:25:48
图论
-
0
const st:array[1..4,1..2] of integer = ((1,0),(-1,0),(0,1),(0,-1));
var t,m,n,x,y,k,x1,y1,x2,y2:integer;
mp:array[0..26,0..26] of char;
f:array[0..26,0..26] of integer;
procedure dfs(a,b,v:integer);
var i,j,m,n:integer;
begin
f[a,b]:=v;
for i:= 1 to 4 do
begin
if mp[a+st,b+st] 'o' then
begin
if mp[a+st,b+st] = '.' then j:=1
else j:=2;
if v+j < f[a+st,b+st] then dfs(a+st,b+st,v+j);
end;
end;
end;
begin
for x:= 1 to 25 do
for y:= 1 to 25 do
f[x,y]:=1000;
readln(t);
readln(y);
readln(x);
for m:= 1 to x do
begin
for n:= 1 to y do
begin
read(mp[m,n]);
if mp[m,n] = 's' then begin x1:=m ; y1:=n ; mp[m,n] := '.' ; end;
if mp[m,n] = 'm' then begin x2:=m ; y2:=n ; mp[m,n] := '.' ; end;
end;
readln;
end;
dfs(x1,y1,0);
k:=f[x2,y2];
if k < t then writeln(k)
else writeln('55555');
end.40行搞定
-
0
ＫiＳs♀yoひ-可 LV 8 @ 2009-01-18 08:21:31
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
/*
pronum: 1340
*/#include
#includetypedef struct
{
int x;
int y;
}coordinate;
coordinate start;
coordinate end;
int t,r,l;
char map[30][30];
static int state[30][30];
int doit(int xx,int yy,int value)
{
state[xx][yy]=value;
int temp;
if(map[xx-1][yy]!='o')
{
if(map[xx-1][yy]=='#') temp=2;
else temp=1;
if((value+temp) -
0
LV 0 @ 2008-09-03 21:23:44
原来到达时间=限制时间也算失败55555555555555555，害得我的通过率。。。。。。。。
-
0
zyg123456789 LV 3 @ 2008-08-27 19:36:49
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msMS数据很弱，直接暴力dfs都0ms。
还有ice-cream home的'm'要相当于'.'要算时间的。
EZ_lzh
LV 10
@ 2009-05-17 21:25:48
