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.