HDU 1272 小希的迷宫 .

阅读更多
Problem Description
上次Gardon的迷宫城堡小希玩了很久(见Problem B),现在她也想设计一个迷宫让Gardon来走。但是她设计迷宫的思路不一样,首先她认为所有的通道都应该是双向连通的,就是说如果有一个通道连通了房间A和B,那么既可以通过它从房间A走到房间B,也可以通过它从房间B走到房间A,为了提高难度,小希希望任意两个房间有且仅有一条路径可以相通(除非走了回头路)。小希现在把她的设计图给你,让你帮忙判断她的设计图是否符合她的设计思路。比如下面的例子,前两个是符合条件的,但是最后一个却有两种方法从5到达8。






Input
输入包含多组数据,每组数据是一个以0 0结尾的整数对列表,表示了一条通道连接的两个房间的编号。房间的编号至少为1,且不超过100000。每两组数据之间有一个空行。
整个文件以两个-1结尾。





Output
对于输入的每一组数据,输出仅包括一行。如果该迷宫符合小希的思路,那么输出"Yes",否则输出"No"。





Sample Input
6 8 5 3 5 2 6 4 5 6 0 0 8 1 7 3 6 2 8 9 7 5 7 4 7 8 7 6 0 0 3 8 6 8 6 4 5 3 5 6 5 2 0 0 -1 -1




Sample Output
Yes Yes No 其实就系一条判断一副图系唔系树ge问题,一黎就捻到判断方法,数据结构为并查集,果断认为系水题: 点数-1==边数 && 只有一颗树 但系错左n次……先搵到一个奇怪ge错误,印象深刻,所以先写尼条题!!!!!OTZ 真系好鬼死奇怪……结合代码讲。 hdu 1727 46ms 1132K 1568B Pascal SGetEternal{(。)(。)}!

var

  i,u,v,max,min,edge,node,tree : longint;
  father,rank:array[0..100000] of longint;
  exsi: array[0..100000] of boolean;

function Maxi(a,b:longint):longint;
  begin
    if a>b then Maxi:=a
    else Maxi:=b;
  end;

function Mini(a,b:longint):longint;
  begin
    if afather[x] then father[x]:=Find(father[x]);
    Find:=father[x];
  end;

procedure Union(x,y:longint);                               //合并集合(就系呢度发生悲剧)
  begin
    x:=Find(x);
    y:=Find(y);
    if x=y then exit;
    if rank[x]-1) or (v<>-1) do
    begin
      for i:=1 to 100000 do father[i]:=i;             //老豆数组初始化…………
      fillchar(rank,sizeof(rank),0);                     //秩数组初始化………………
      fillchar(exsi,sizeof(exsi),false);                //判断结点存在ge数组初始化………………
      tree:=0; edge:=0; node:=0;                      //tree系树棵树,edge系边数,node系结点数。
      min:=100001; max:=-1;                            //优化,确定结点范围min~max。
      while (u<>0) or (v<>0) do
        begin
          if (u<>v) then begin                               //如果u=v就吾做啦。
            inc(edge);                                            //加边……
            exsi[u]:=true;
            exsi[v]:=true;
            max:=Maxi(max,Maxi(u,v));
            min:=Mini(min,Mini(u,v));
            Union(u,v);
          end;
          read(u,v);
        end;
      for i:=min to max do
        if exsi[i]=true then begin                        //如果结点存在就判断……
            if father[i]=i then inc(tree);                 //如果自己系自己老豆,就加一颗树。
            inc(node);                                           //加点
        end;
      if ((node-1=edge) and (tree=1)) or ((max=-1) and (min=100001)) then writeln('Yes')      //判断min同max系考虑左空树ge情况…………
      else writeln('No');
      read(u,v);
    end;
end.

_______________________________无痛阉割线___________________________________



其实就系只需要判断 是否只有一颗树+点数-1是否等于边数ge问题…………
本来系一条水题,但系就系比d奇怪ge错误搞死左n次!!!!
我犯左一个非常蛋疼ge错误!!!!!!!
如果将Union里面ge 关于rank比较改成x,y比较就会WA。点解…………

你可能感兴趣的:(数据结构,pascal)