p1107 环游大同80天

描述Description

一年一度的xuzhenyiOI2006在风景如画的大同中学举行。按照以往惯例，在激烈的比赛过程后，选手们会应邀去风景名胜区游览。今年当然也不例外。为了确定一条最佳的旅游路线，组委会请各位选手编一程序帮忙寻找。假设所有的风景点都集中在一个C列R行的矩阵中，矩阵的每一元素代表风景点或者障碍物。现在你要寻找一条满足下列条件的最佳旅游路线：

●这条路线上的每一点结点必须是风景点（即不能为障碍物）

●每个风景点最多游览一次

●这条路线必须是连续的相邻风景点的序列（若风景点A和B分别位于矩阵的位置（a1，a2）及（b1，b2），且|a1-b1|+|a2-b2|=1，则风景点A和B是相邻的）

●在满足上述条件下，游览的风景点尽可能多

假设任意的两个风景点都有且仅有一条路径（无回路）相连。显然，任意一个风景点都可以作为游览路线的起点或者终点。

 

输入格式Input Format

第一行是两个整数C和R（3≤C，R≤1000），表示矩阵的列数和行数。

接下来有R行，每行有C个字符，每个字符都只能是‘#’或‘．’，‘#’表示障碍物，‘．’表示风景点。行手行末无多余空格。

 

输出格式Output Format

只有一行，输出最佳路线的长度。

 

样例输入Sample Input

3 3

###

#.#

###

 

样例输出Sample Output

0

 

数据规模

 对于所有的数据：3≤C，R≤1000

 

分析：这个是一个搜索题，深搜…………不过需要两遍……囧……看大牛的题解…………

 

附：大牛的题解-----来源RONG大牛的空间  http://hi.baidu.com/wyhbb163/blog/item/4d74c883a57520b76c811986.html

 对于这一题，由于所有点都联通，所以任意找一个非障碍的点A，以此为根进行深搜，找到一个离他最远的点B，记录下来，再以此点为根进行深搜，又可以找到一个距离最远的点C，则B-C即为所求。

 

代码：

program around;
 const dxy:array[1..4,1..2]of integer=((1,0),(-1,0),(0,1),(0,-1));
 var f:array[1..1000,1..1000]of boolean;
     a:array[1..1000,1..1000]of char;
     n,m,max,mx,my,x,y:longint;

 procedure init;
  var i,j:longint;
  begin
   assign(input,'around.in');
   reset(input);
   assign(output,'around.out');
   rewrite(output);
   readln(n,m);
   for i:=1 to n do
    begin
     for j:=1 to m do
      read(a[i,j]);
     readln;
    end;
   close(input);
  end;

 procedure dfs(d,i,j:longint);
  var  k:longint;
  begin
    f[i,j]:=true;
    if d>=max then
     begin
      max:=d;
      mx:=i;
      my:=j;
     end;
    for k:=1 to 4 do
     begin
      x:=i+dxy[k,1];
      y:=j+dxy[k,2];
      if (not f[x,y])and(x>=1)and(y>=1)and(x<=n)and(y<=m)and(a[x,y]='.') then
       dfs(d+1,x,y);
     end;
  end;

 procedure main;
  var i,j:longint;
  begin
   for i:=1 to n do
    for j:=1 to m do
     if (not f[i,j])and(a[i,j]<>'#') then
       begin
        dfs(0,i,j);
        fillchar(f,sizeof(f),false);
        dfs(0,mx,my);
        writeln(max);
        close(output);
        halt;
       end;
   close(output);
  end;

 begin
  init;
  main;
 end.