ssl2340 格子游戏

Description

Alice和Bob玩了一个古老的游戏：首先画一个n * n的点阵（下图n = 3） 

接着，他们两个轮流在相邻的点之间画上红边和蓝边： 
直到围成一个封闭的圈（面积不必为1）为止，“封圈”的那个人就是赢家。 
因为棋盘实在是太大了(n <= 200)，他们的游戏实在是太长了！他们甚至在游戏中都不知道谁赢得了游戏。于是请你写一个程序，帮助他们计算他们是否结束了游戏？ 

Input

每组数据第一行两个整数n和m。m表示一共画了m条线。 
以后m行，每行首先有两个数字(x, y)，代表了画线的左边，接着用空格隔开一个字符，假如字符是"D "，则是向下连一条边，如果是"R "就是向右连一条边。输入数据不会有重复的边且保证正确。

Output

对于每一组测试数据，输出一行：在第几步的时候结束。假如m步之后也没有结束，则输出一行“draw”。

题解

用并查集寻找两个节点的父亲，如果他们的父亲相同，就代表他们出行了一个封闭的圈。

var
  n,m,x,y,z,z1:longint;
  s:array[0..100000] of longint;
  a:string;
  b,b1:char;
function try(g:longint):longint;
begin
  if s[g]<>g then s[g]:=try(s[g]);
  try:=s[g];
end;
var
  i:longint;
begin
  readln(n,m);
  for i:=1 to n*n do
    s[i]:=i;
  for i:=1 to m do
    begin
      readln(x,y,b1,b);
      z:=try((x-1)*n+y);
      if b='D' then z1:=try(x*n+y)
      else z1:=try((x-1)*n+y+1);
      if z=z1 then
        begin writeln(i);halt;end;
      s[z]:=z1;
    end;
  writeln('draw');
end.