PROB The Tamworth Two|USACO - OI爱好者（OIFans.cn）

只看楼主倒序阅读 0 发表于: 2006-02-01

2.2 PROB The Tamworth Two

TASK: ttwo
LANG: PASCAL

Compiling...
Compile: OK

Executing...
sending data (ttwo) ttwo /home/kolstad/trainweb

Test 1 OK [0.003 secs]
Test 2 OK [0.002 secs]
Test 3 OK [0.003 secs]
Test 4 OK [0.002 secs]
Test 5 OK [0.003 secs]
Test 6 OK [0.002 secs]
Test 7 OK [0.002 secs]
Test 8 OK [0.002 secs]
Test 9 OK [0.002 secs]

All tests OK.

Your program ('ttwo') produced all correct answers! This is your
submission #25 for this problem. Congratulations!

我实在想不出这道题如何判断“0”（抓不到的那种情况），所以只好耍赖了，运行150次如果还不行就结束，输出“0”，不知大家有什么好办法？

{ ID: oifans1 PROG: ttwo LANG: PASCAL } program t1; type posi = object a,b:smallint; end; var pos:array[1..4] of posi; dir:array[1..2] of smallint; map:array[1..10,1..10] of smallint; t:integer; total:smallint; procedure duru; var i,j,t:smallint; ch:char; begin i:=0; repeat read(ch); j:= i mod 10 +1; t:= i div 10 +1; if ch = '*' then begin map[j,t]:=1; inc(i); end else if ch= 'C' then begin pos[1].a :=j ; pos[1].b :=t; inc(i); end else if ch= 'F' then begin pos[2].a :=j ; pos[2].b :=t; inc(i); end else if ch= '.' then inc(i); until i=100; end; procedure cha(a:smallint); begin dir[a]:= dir[a]+1; if dir[a] > 3 then dir[a] := dir[a] mod 4; end; function cou(a,b,c:smallint):boolean; var lx,ly:smallint; begin lx:=a+pos[c].a; ly:=b+pos[c].b; if ((lx> 10) or (ly > 10) or (lx <1) or (ly < 1)) then exit(false); if map[lx,ly] = 1 then exit(false); exit(true); end; procedure move; var i,cx,cy:smallint; begin for i:=1 to 2 do begin case dir of 0: begin cx:=0; cy:=-1; end; 1: begin cx:=1; cy:=0; end; 2: begin cx:=0; cy:=1; end; 3: begin cx:=-1; cy:=0; end; end;{case} if cou(cx,cy,i) then begin pos.a:=pos.a+cx; pos.b:=pos.b+cy; end else cha(i); end;{for} end; begin assign(input,'ttwo.in'); reset(input); assign(output,'ttwo.out'); rewrite(output); duru; total:=0; for t:= 1 to 150 do begin move; inc(total); if (pos[1].a=pos[2].a) and (pos[1].b = pos[2].b) then begin writeln(total); break; end; end; if t=150 then writeln('0'); close(output); end.

Dream Walker...

分享到 淘江湖新浪 QQ微博 QQ空间开心人人豆瓣网易微博百度鲜果白社会飞信

离线archimedes

管理员

只看该作者 1 发表于: 2006-02-02

网上的标程

复制代码

program ttwo;
var
fin,fout:text;
map:array[1..10,1..10]of char;
state:array[1..10,1..10,0..3,1..10,1..10,0..3]of boolean;
dir:array[0..3]of record
x,y:integer;
end;
time:longint;
i,j,fx,fy,fd,cx,cy,cd:integer;
begin
assign(fin,'ttwo.in');
reset(fin);
for i:=1 to 10 do begin
for j:=1 to 10 do begin
read(fin,map[i,j]);
if map[i,j]='F' then begin fx:=i;fy:=j;end;
if map[i,j]='C' then begin cx:=i;cy:=j;end;
end;
readln(fin);
end;
close(fin);
fillchar(state,sizeof(state),0);
fd:=0;cd:=0;state[fx,fy,fd,cx,cy,cd]:=true;
time:=0;
dir[0].x:=-1;dir[0].y:=0;
dir[1].x:=0;dir[1].y:=1;
dir[2].x:=1;dir[2].y:=0;
dir[3].x:=0;dir[3].y:=-1;
assign(fout,'ttwo.out');
rewrite(fout);
repeat
if (fx+dir[fd].x=0) or (fx+dir[fd].x=11) or (fy+dir[fd].y=0) or (fy+dir[fd].y=11) or (map[fx+dir[fd].x,fy+dir[fd].y]='*') then fd:=(fd+1) mod 4 else begin fx:=fx+dir[fd].x;fy:=fy+dir[fd].y;end;
if (cx+dir[cd].x=0) or (cx+dir[cd].x=11) or (cy+dir[cd].y=0) or (cy+dir[cd].y=11) or (map[cx+dir[cd].x,cy+dir[cd].y]='*') then cd:=(cd+1) mod 4 else begin cx:=cx+dir[cd].x;cy:=cy+dir[cd].y;end;
if state[fx,fy,fd,cx,cy,cd] then begin
writeln(fout,0);
close(fout);
halt;
end;
inc(time);
state[fx,fy,fd,cx,cy,cd]:=true;
until (fx=cx) and (fy=cy);
writeln(fout,time);
close(fout);
end.