（昨天的）codevs天梯 逃跑的拉尔夫 dfs

题目：

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

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

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

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

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

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

分析：

说是bfs，其实用dfs做也是可以的。。。

代码：

const
  dx:array [1..4] of longint=(-1,1,0,0);
  dy:array [1..4] of longint=(0,0,-1,1);
  maxn=50;


var
  a:array [1..maxn,1..maxn,0..maxn*20] of longint;
  dir:array [1..maxn*maxn] of longint;
  map:array [1..maxn,1..maxn] of char;
  n,m,num,x1,y1:longint;
  st:string;
  c:char;


procedure init;
var
  i,j:longint;
begin
 readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          read(c);
          case c of
            'X':map[i,j]:=c;
            '.':map[i,j]:=c;
            '*':begin x1:=i;y1:=j;map[i,j]:='.'; end;
          end;
        end;
      readln;
    end;
  readln(num);
  for i:=1 to num do
    begin
      readln(st);
      case st[1] of
        'N':dir[i]:=1;
        'S':dir[i]:=2;
        'W':dir[i]:=3;
        'E':dir[i]:=4;
      end;
    end;
end;


procedure try(x,y,temp:longint);
begin
  if a[x,y,temp-1]=1 then
    exit;
  if temp>num then
    begin
      map[x,y]:='*';
      exit;
    end;
  a[x,y,temp-1]:=1;
  x:=x+dx[dir[temp]];
  y:=y+dy[dir[temp]];
  while (x>0) and (x<=n) and (y>0) and (y<=m) and (map[x,y]<>'X') do
    begin
      try(x,y,temp+1);
      x:=x+dx[dir[temp]];
      y:=y+dy[dir[temp]];
    end;
end;


procedure main;
var
  i,j:longint;
begin
  try(x1,y1,1);
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(map[i,j]);
      writeln;
    end;
end;


begin
  init;
  main;
end.