jzoj 1432. 输油管道

Description

　　请你帮忙设计一个从城市M到城市Z的输油管道，现在已经把整个区域划分为R行C列，每个单元格可能是空的也可能是以下7种基本管道之一：
　　

　　油从城市M流向Z，‘+’型管道比较特殊，因为石油必须在两个方向（垂直和水平）上传输，如下图所示：

　　　　　               　　　


　　现在恐怖分子弄到了输油管道的设计图，并把其中一个单元格中的管道偷走了，请你帮忙找到偷走的管道的位置以及形状。

Input

　　第一行包含两个整数R和C（1<=R,C<=25）。
　　接下来R行每行C个字符描述被偷之后的形状，字符分为以下三种：
　　(1)‘.’表示空；
　　(2)字符‘|’（ASCII为124）、‘-’、‘+’、‘1’、‘2’、‘3’、‘4’描述管道的形状；
　　(3)‘M’和‘Z’表示城市，两个都是只出现一次。
　　输入保证石油的流向是唯一的，只有一个管道跟M和Z相连，除此此外，保证没有多余的管道，也就是说所有的管道在加进被偷的管道后一定都会被用上。
　　输入保证有解而且是唯一的。

Output

　　输出被偷走的管道的行号和列号以及管道的类型。

Sample Input

输入1：
3 7
.......
.M-.-Z.
.......

输入2：
3 5
..1-M
1-+..
Z.23.

输入3：
6 10
Z.1----4..
|.|....|..
|..14..M..
2-+++4....
..2323....
..........

Sample Output

输出1：
2 4 -

输出2：
2 4 4

输出3：
3 3 |

Data Constraint

正解

枚举每一个点，然后判断周围的管道，选择即可。
把每一个管道转化为二进制，四个位表示上下左右
比如：上下联通，就是1100
           +就是1111，以此类推。
枚举每个空位，只要能完美地把四周的油运输，就输出类型。

内心P.S.:这题的if太**多了，调了1.5h（已崩溃）

CODE

var
        f:array[0..30,0..30]of string;
        ch:array[0..30,0..30]of char;
        bz:array[1..7]of string=('0101','1001','1010','0110','1100','0011','1111');
        r,c,i,j,k,s:longint;
        ss:string;
begin
        readln(r,c);
        ss:='1234|-+';
        for i:=1 to r do begin
                for j:=1 to c do begin
                        read(ch[i,j]);
                        if (ch[i,j]<>'.')and(ch[i,j]<>'M')and(ch[i,j]<>'Z') then begin
                                for s:=1 to 7 do
                                        if ch[i,j]=ss[s] then begin
                                                f[i,j]:=bz[s];
                                                break;
                                        end;
                        end;
                end;
                readln;
        end;
        for i:=1 to r do begin
                for j:=1 to c do begin
                         if ch[i,j]='.' then begin
                                if (f[i-1,j][2]='1')and(f[i+1,j][1]='1')and(f[i,j-1][4]='1')and(f[i,j+1][3]='1') then begin
                                        writeln(i,' ',j,' ','+');
                                        exit;
                                end;
                                if (f[i-1,j][2]='1')and(f[i+1,j][1]='1') then begin
                                        writeln(i,' ',j,' ','|');
                                        exit;
                                end;
                                if (f[i,j-1][4]='1')and(f[i,j+1][3]='1') then begin
                                        writeln(i,' ',j,' ','-');
                                        exit;
                                end;
                                if (f[i,j+1][3]='1')and(f[i+1,j][1]='1') then begin
                                        writeln(i,' ',j,' ',1);
                                        exit;
                                end;
                                if (f[i-1,j][2]='1')and(f[i,j+1][3]='1') then begin
                                        writeln(i,' ',j,' ',2);
                                        exit;
                                end;
                                if (f[i-1,j][2]='1')and(f[i,j-1][4]='1') then begin
                                        writeln(i,' ',j,' ',3);
                                        exit;
                                end;
                                if (f[i+1,j][1]='1')and(f[i,j-1][4]='1') then begin
                                        writeln(i,' ',j,' ',4);
                                        exit;
                                end;
                         end;
                end;
        end;
end.