wikioi 逃跑的拉尔夫

题目描述 Description

年轻的拉尔夫开玩笑地从一个小镇上偷走了一辆车，但他没想到的是那辆车属于警察局，并且车上装有用于发射车子移动路线的装置。

那个装置太旧了，以至于只能发射关于那辆车的移动路线的方向信息。

编写程序，通过使用一张小镇的地图帮助警察局找到那辆车。程序必须能表示出该车最终所有可能的位置。

小镇的地图是矩形的，上面的符号用来标明哪儿可以行车哪儿不行。“.”表示小镇上那块地方是可以行车的，而符号“X”表示此处不能行车。拉尔夫所开小车的初始位置用字符的“*”表示，且汽车能从初始位置通过。

汽车能向四个方向移动：向北(向上)，向南(向下)，向西(向左)，向东(向右)。

拉尔夫所开小车的行动路线是通过一组给定的方向来描述的。在每个给定的方向，拉尔夫驾驶小车通过小镇上一个或更多的可行车地点。

输入描述 Input Description

输入文件的第一行包含两个用空格隔开的自然数R和C，1≤R≤50，1≤C≤50，分别表示小镇地图中的行数和列数。

以下的R行中每行都包含一组C个符号(“.”或“X”或“*”)用来描述地图上相应的部位。

接下来的第R+2行包含一个自然数N，1≤N≤1000，表示一组方向的长度。

接下来的N行幅行包含下述单词中的任一个：NORTH(北)、SOUTH(南)、WEST(西)和EAST(东)，表示汽车移动的方向，任何两个连续的方向都不相同。

输出描述 Output Description

输出文件应包含用R行表示的小镇的地图(象输入文件中一样)，字符“*”应该仅用来表示汽车最终可能出现的位置。

 

样例输入 Sample Input

4 5

.....

.X...

...*X

X.X..

3

NORTH

WEST

SOUTH

 

样例输出 Sample Output

.....

*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.