欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

HDU 1272 小希的迷宫 .

程序员文章站 2022-07-16 13:38:12
...
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 a<b then Mini:=a
    else Mini:=b;
  end;

function Find(x:longint):longint;                            //压缩路径(其实就系将集合ge所有元素指向标记集合元素)
  begin
    if x<>father[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]<rank[y] then father[x]:=y                 //就系呢度!!!!如果将rank[x]<rank[y]改成x<y就会WA!!!!!
    else begin
      if rank[x]=rank[y] then inc(rank[x]);              //仲有呢度。
      father[y]:=x;
      end;
  end;                                                                   //真系老hi都捻唔到会错系呢度{-_____-}|||

begin
  read(u,v);
  while (u<>-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