vijos p1022题解

原题叙述

这题又是舞会...这题继续搞笑....

牛人们说这是强联通分量，很标准；但是我写了个并查集，沙茶的通过了。

强联通分量很明显，不说了。我说说我的并查集：

因为每组任何一个成员都能在这组中找到自己想聊天的对象，于是将他们设想成点。

即，若b在一个集合V，a不在，而点a与b有联系，将a并入集合V中，且因为要让分组数最小，所以a想交流的所有点都并入集合V中。如果（写到这，发现这题错了.....我说是题目叙述与数据完全两码事！我倒....不写了）

我的代码:

var  i,n,ch,t,s,m:longint;a: array [ 1 .. 200 ] of  longint;
    v: array [ 1 .. 200 ] of  boolean;
function  find(x:longint):longint;
   begin
     if  a[x] = x  then  a[x]: = x
     else
      a[x]: = find(a[x]);
    find: = a[x];
   end ;
begin
  readln(n);
   for  i: = 1   to  n  do  a[i]: = i;
   for  i: = 1   to  n  do
     begin
      read(ch);
       while  ch <> 0   do
         begin
           if  a[i] <> a[ch]  then
             begin
              t: = find(i);s: = find(ch);
               if  t <> s  then  a[s]: = t;
             end ;
          read(ch);
         end ;
      readln;
     end ;
  fillchar(v,sizeof(v), 0 );
  m: = 0 ;
   for  i: = 1   to  n  do  t: = find(i);
   for  i: = 1   to  n  do
     if   not (v[a[i]])  then
       begin
        inc(m);
        v[a[i]]: = true;
       end ;
  writeln(m);
end .

 

牛人的联通分量

 

FLOYD!!!
用floyed来求出某人愿意与什么人来交流，然后一个贪心过去，就是正解。
至于细节就不说了，看代码吧。。。
==================== 晒程序 =====================
var
    n,i,x,j,k,ans:longint;
    f: array [ 0 .. 200 , 0 .. 200 ] of  boolean;
    u: array [ 0 .. 200 ]  of  boolean;
begin
    readln(n);
    fillchar(f,sizeof(f),false);
     for  i: = 1   to  n  do   begin
        read(x);
         while  x > 0   do   begin
            f[i,x]: = true;
            read(x);
         end ;
        readln;
     end ;
     for  k: = 1   to  n  do
         for  i: = 1   to  n  do
             for  j: = 1   to  n  do
             begin
                 if  (i = k) or (i = j) or (k = j) or (f[i,j])  then  continue;
                f[i,j]: = (f[i,k] and  f[k,j]);
             end ;
    fillchar(u,sizeof(u), 0 );
     for  i: = 1   to  n  do
     if   not  u[i]  then
     begin
        inc(ans);
        u[i]: = true;
         for  j: = 1   to  n  do  u[j]: = u[j]  or  f[i,j];
     end ;
    writeln(ans);
end .

 

转载于:https://www.cnblogs.com/waterfalleagle/archive/2009/11/04/1595642.html