[DFS] 5.2.1 Snail Trails

 

Snail Trails

蜗 牛的旅行

All Ireland Contest

译 by Felicia Crazy

萨丽·斯内尔（Sally Snail，蜗牛）喜欢在 N x N 的棋盘上闲逛（1 < n < 120）。她总是从棋盘的左上角出发。棋盘上有空的格子（用“.”来表示）和 B 个路障（用“#”来表示）。下面是这种表示法的示例棋盘：

 A B C D E F G H
1 S . . . . . # .
2 . . . . # . . .
3 . . . . . . . .
4 . . . . . . . .
5 . . . . . # . .
6 # . . . . . . .
7 . . . . . . . .
8 . . . . . . . .

萨丽总是垂直（向上或者向下）或水平（向左或者向右）地走。她可以从出发地（总是记作 A1 ）向下或者向右走。

一旦萨丽选定了一个方向，她就会一直走下去。如果她遇到棋盘边缘或者路 障，她就停下来，并且转过 90 度。她不可能离开棋盘，或者走进路障当中。并且，萨丽从不跨过她已经经过的格子。当她再也不能走的时候，她就停止散步。

这里是上面的棋盘上的一次散步路线图示：

 A B C D E F G H
1 S---------+ # .
2 . . . . # | . .
3 . . . . . | . .
4 . . . . . +---+
5 . . . . . # . |
6 # . . . . . . |
7 +-----------+ |
8 +-------------+

萨丽向右走，再向下，向右，向下，然后向左，再向上，最后向右走。这时她遇到了一 个她已经走过的格子，她就停下来了。但是，如果她在 F5 格遇到路障后选择另外一条路——向我们看来是左边的方向转弯，情况就不一样了。

你的任务是计算并输出，如果萨丽聪明地选择她的路线的话，她所能够经过的 最多格子数。

PROGRAM NAME: snail

INPUT FORMAT

输入的第一行包括 N ——棋盘的大小，和 B ——路障的数量（1 <= B <= 200）。接下来的 B 行包含着路障的位置信息。下面的样例输入对应着上面的示例棋盘。下面的输出文件表示问题的解答。注意，当 N 〉26 时，输入文件就不能表示 Z 列以后的路障了。

SAMPLE INPUT (file snail.in)8 4 E2 A6 G1 F5

OUTPUT FORMAT

输出文件应该只由一行组成，即萨丽能够经过的最多格子数。

SAMPLE OUTPUT (file snail.out)

33

 

 

 

简单的暴力dfs题目

但因为一个小问题检查了1个多小时

读入的时候不知道脑子怎么想的用字符串读

以为只有两个数么。。。。

这样居然也有45分。。。。

然后我就以为是自己程序写跪了

然后各种找题解各种改还是各种45分。。。

崩溃了之后突然发现是这么一个nc错误。。。。。。。

var n,i,j,n1,a1,b1,tot,max,kk:longint;
    ch:char;
    map:array[0..121,0..121]of longint;
    f:array[0..121,0..121]of boolean;
    x1,y1:array[1..4]of longint;

procedure dfs(x,y,k:longint);
var xk,yk,i,j:longint;
begin
    if max<tot then max:=tot;
    if f[x+x1[k],y+y1[k]]=true then exit;
    if (map[x+x1[k],y+y1[k]]=0)and(not(f[x+x1[k],y+y1[k]])) then
    begin
        inc(tot);
        f[x+x1[k],y+y1[k]]:=true;
        dfs(x+x1[k],y+y1[k],k);
        dec(tot);
        f[x+x1[k],y+y1[k]]:=false;
    end
    else
    begin
        if k=4 then begin xk:=1;yk:=1;end
        else begin xk:=k+1;yk:=k+1; end;
        if (map[x+x1[xk],y+y1[yk]]=0)and(not(f[x+x1[xk],y+y1[yk]])) then
        begin
            inc(tot);
            f[x+x1[xk],y+y1[yk]]:=true;
            dfs(x+x1[xk],y+y1[yk],xk);
            dec(tot);
            f[x+x1[xk],y+y1[yk]]:=false;
        end;

        if k=1 then begin xk:=4;yk:=4;end
        else begin xk:=k-1;yk:=k-1; end;
        if (map[x+x1[xk],y+y1[yk]]=0)and(not(f[x+x1[xk],y+y1[yk]])) then
        begin
            inc(tot);
            f[x+x1[xk],y+y1[yk]]:=true;
            dfs(x+x1[xk],y+y1[yk],xk);
            dec(tot);
            f[x+x1[xk],y+y1[yk]]:=false;
        end;
    end;
end;

procedure work;
var i,j:longint;
begin
   fillchar(f,sizeof(f),false);
   x1[1]:=0;y1[1]:=1;
   x1[2]:=1;y1[2]:=0;
   x1[3]:=0;y1[3]:=-1;
   x1[4]:=-1;y1[4]:=0;
   tot:=0;max:=0;
   f[1,1]:=true;
   dfs(1,1,1);
   fillchar(f,sizeof(f),false);
   tot:=0;
   f[1,1]:=true;
   dfs(1,1,2);
   writeln(max+1);
end;

begin
    for i:=0 to 121 do for j:=0 to 121 do map[i,j]:=1;
    readln(n,n1);
    for i:=1 to n do for j:=1 to n do map[i,j]:=0;
    for i:=1 to n1 do
    begin
      readln(ch,kk);
      b1:=ord(ch)-64;
      map[b1,kk]:=1;
    end;
    work;
end.