年轻的拉尔夫开玩笑地从一个小镇上偷走了一辆车,但他没想到的是那辆车属于警察局,并且车上装有用于发射车子移动路线的装置。
那个装置太旧了,以至于只能发射关于那辆车的移动路线的方向信息。
编写程序,通过使用一张小镇的地图帮助警察局找到那辆车。程序必须能表示出该车最终所有可能的位置。
小镇的地图是矩形的,上面的符号用来标明哪儿可以行车哪儿不行。“.”表示小镇上那块地方是可以行车的,而符号“X”表示此处不能行车。拉尔夫所开小车的初始位置用字符的“*”表示,且汽车能从初始位置通过。
汽车能向四个方向移动:向北(向上),向南(向下),向西(向左),向东(向右)。
拉尔夫所开小车的行动路线是通过一组给定的方向来描述的。在每个给定的方向,拉尔夫驾驶小车通过小镇上一个或更多的可行车地点。
输入文件的第一行包含两个用空格隔开的自然数R和C,1≤R≤50,1≤C≤50,分别表示小镇地图中的行数和列数。
以下的R行中每行都包含一组C个符号(“.”或“X”或“*”)用来描述地图上相应的部位。
接下来的第R+2行包含一个自然数N,1≤N≤1000,表示一组方向的长度。
接下来的N行幅行包含下述单词中的任一个:NORTH(北)、SOUTH(南)、WEST(西)和EAST(东),表示汽车移动的方向,任何两个连续的方向都不相同。
输出文件应包含用R行表示的小镇的地图(象输入文件中一样),字符“*”应该仅用来表示汽车最终可能出现的位置。
4 5
.....
.X...
...*X
X.X..
3
NORTH
WEST
SOUTH
.....
*X*..
*.*.X
X.X..
题解:暴力搜索
const
dx:array[1..4] of longint=(1,-1,0,0);
dy:array[1..4] of longint=(0,0,-1,1);
var
st:string;
ch:char;
n,m,i,j,k,head,tail,px,py:longint;
di:array[1..1000]of longint;
map:array[1..50,1..50]of char;
u:array[1..50,1..50,0..1000]of longint;
procedure dfs(x,y,z:longint);
begin
if u[x,y,z-1]=1 then exit;
if z>k then
begin
map[x,y]:='*';
exit;
end;
u[x,y,z-1]:=1;
x:=x+dx[di[z]];
y:=y+dy[di[z]];
while (x>0)and(x<=n)and(y>0)and(y<=m)and(map[x,y]<>'X') do
begin
dfs(x,y,z+1);
x:=x+dx[di[z]];
y:=y+dy[di[z]];
end;
end;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(ch);
case ch of
'X':map[i,j]:=ch;
'.':map[i,j]:=ch;
'*':begin px:=i;py:=j;map[i,j]:='.';end;
end;
end;
readln;
end;
readln(k);
for i:=1 to k do
begin
readln(st);
case st[1] of
'N':di[i]:=1;
'S':di[i]:=2;
'W':di[i]:=3;
'E':di[i]:=4;
end;
end;
head:=0;tail:=0;
dfs(px,py,1);
for i:=1 to n do
begin
for j:=1 to m do
write(map[i,j]);
writeln;
end;
end.