• 并查集乱搞 bzoj1015


    建图建错4次 改了2个钟。。。这本是道水题。。。

     1 program hehe;
     2 type
     3  edge=record
     4   q,z,next:longint;
     5  end;
     6 var
     7  n,m,q,i,j,k,cnt:longint;
     8  p,pd:array[0..500000] of boolean;
     9  e:array[0..500000] of edge;
    10  ans,c,first,f,d:array[0..500000] of longint;
    11 
    12   function find(a:longint):longint;
    13   begin
    14    if f[a]=a then exit(a);
    15    f[a]:=find(f[a]);
    16    exit(f[a]);
    17   end;
    18 
    19 begin
    20  fillchar(first,sizeof(first),255);
    21  fillchar(e,sizeof(e),255);
    22  fillchar(p,sizeof(p),true);
    23  read(n,m);
    24  for i:=0 to n-1 do
    25  f[i]:=i;
    26  for i:=1 to m do
    27  begin
    28   read(j,k);
    29   if first[j]=-1 then
    30   first[j]:=i;
    31   e[i].q:=j;
    32   e[i].z:=k;
    33   e[c[j]].next:=i;
    34   c[j]:=i;
    35   if first[k]=-1 then
    36   first[k]:=i+m;
    37   e[i+m].q:=j;
    38   e[i+m].z:=k;
    39   e[c[k]].next:=i+m;
    40   c[k]:=i+m;
    41  end;
    42  read(q);
    43  for i:=1 to q do
    44  begin
    45   read(d[q-i+1]);
    46   p[d[q-i+1]]:=false;
    47  end;
    48  for i:=0 to n-1 do
    49  if p[i] then inc(cnt);
    50  for i:=0 to n-1 do
    51  if p[i] then
    52  begin
    53   k:=first[i];
    54   while k<>-1 do
    55   begin
    56    if (p[e[k].q])and(p[e[k].z]) then
    57    if find(e[k].q)<>find(e[k].z) then
    58    begin
    59     f[find(e[k].q)]:=find(e[k].z);
    60     dec(cnt);
    61    end;
    62    k:=e[k].next;
    63   end;
    64  end;
    65  ans[0]:=cnt;
    66  for i:=1 to q do
    67  begin
    68   inc(cnt);
    69   p[d[i]]:=true;
    70   k:=first[d[i]];
    71   while k<>-1 do
    72   begin
    73    if (p[e[k].q])and(p[e[k].z]) then
    74    if find(e[k].q)<>find(e[k].z) then
    75    begin
    76     f[find(e[k].q)]:=find(e[k].z);
    77     dec(cnt);
    78    end;
    79    k:=e[k].next;
    80   end;
    81   ans[q-i+1]:=cnt;
    82  end;
    83  for i:=1 to q do
    84  writeln(ans[i]);
    85  writeln(ans[0]);
    86 end.
    View Code

    1015: [JSOI2008]星球大战starwar

    Time Limit: 3 Sec  Memory Limit: 162 MB
    Submit: 3484  Solved: 1554
    [Submit][Status][Discuss]

    Description

    很久以前,在一个遥远的星系,一个黑暗的帝国靠着它的超级武器统治者整个星系。某一天,凭着一个偶然的机遇,一支反抗军摧毁了帝国的超级武器,并攻下了星系中几乎所有的星球。这些星球通过特殊的以太隧道互相直接或间接地连接。 但好景不长,很快帝国又重新造出了他的超级武器。凭借这超级武器的力量,帝国开始有计划地摧毁反抗军占领的星球。由于星球的不断被摧毁,两个星球之间的通讯通道也开始不可靠起来。现在,反抗军首领交给你一个任务:给出原来两个星球之间的以太隧道连通情况以及帝国打击的星球顺序,以尽量快的速度求出每一次打击之后反抗军占据的星球的连通快的个数。(如果两个星球可以通过现存的以太通道直接或间接地连通,则这两个星球在同一个连通块中)。

    Input

    输入文件第一行包含两个整数,N (1 <= N <= 2M) 和M (1 <= M <= 200,000),分别表示星球的数目和以太隧道的数目。星球用0~N-1的整数编号。接下来的M行,每行包括两个整数X, Y,其中(0<=X<>Y

    Output

    输出文件的第一行是开始时星球的连通块个数。接下来的N行,每行一个整数,表示经过该次打击后现存星球的连通块个数。

    Sample Input

    8 13
    0 1
    1 6
    6 5
    5 0
    0 6
    1 2
    2 3
    3 4
    4 5
    7 1
    7 2
    7 6
    3 6
    5
    1
    6
    3
    5
    7

    Sample Output

    1
    1
    1
    2
    3
    3

    HINT

     

    Source

     
    [Submit][Status][Discuss]
  • 相关阅读:
    一个主板上连接两个都有引导的盘
    pytorch查看模型weight与grad
    linux终端窗口字体缩放快捷键
    vim选中多行缩进(python多行缩进)与删除多行前面的空格
    python import 包的路径以及相对路径加载的问题
    pycharm中添加PATH变量
    Atom选中多行操作
    php扩展 swoole的安装与使用
    12121212
    linux系统下清理所有Redis缓存
  • 原文地址:https://www.cnblogs.com/chensiang/p/4601009.html
Copyright © 2020-2023  润新知