[NOIP集训]10月22日

今天的文件夹：10月22日.zip

并查集、哈希表是很有意思的算法，不过更好的是，今天的题我以前都A掉了~

T1:这题最省事的是用STL库的map，然后并查集水过。当然用自己写的Hash函数通过也没有压力。

T2:注意这题不要想复杂了，题中的判断规则只有一层，没必要考虑“敌人的敌人的朋友的敌人的朋友的敌人的敌人”这类情况，直接大暴力。数据结构采用并查集，先合并朋友，然后将敌人关系存为一张图，对图中的每个点，把它的所有敌人两两合并。最后输出集合个数。

T3:按顺序打击不好处理，我们倒过来看，相当于逆序依次加入团伙。这就可以并查集模拟了，每加入一个团伙，把和它有关系的团伙合并，然后判断最大集合的大小是否超过一半。最后输出的是(总团伙数-能满足此条件的最多加入的团伙数)。

代码：

#include <iostream>
#include <string>
#include <map>
using namespace std;
#define FOR(i,n) for (int i=0;i<n;i++)
map<string,int> hash;
int father[1000001]={0};
int get_father(int x)
{
    if (father[x]==x) return x;
                 else return get_father(father[x]);
}
void set_union(int x,int y)
{
    int ls1=get_father(x),ls2=get_father(y);
    father[ls1]=ls2;
    return;
}
bool set_same(int x,int y)
{
    return (get_father(x)==get_father(y));
}
int main()
{
    freopen("cc.in","r",stdin);
    freopen("cc.out","w",stdout);
    int n,m,p,cnt=0;
    cin>>n>>m>>p;
    FOR(i,n)
    {
        string ls;
        cin>>ls;
        father[cnt]=cnt;
        hash[ls]=cnt++;
    }
    FOR(i,m)
    {
        string ls1,ls2;
        cin>>ls1>>ls2;
        set_union(hash[ls1],hash[ls2]);
    }
    FOR(i,p)
    {
        string ls1,ls2;
        cin>>ls1>>ls2;
        if (set_same(hash[ls1],hash[ls2]))
           cout<<"safe"<<endl;
        else
            cout<<"cc cry"<<endl;
    }
    return 0;
}

program group;
type
    node=record
        data:longint;
        father:longint;
    end;
var
    a:array[1..1000] of node;
    b:array[1..1000] of longint;
    p:array[1..1000,1..1000] of integer;
    i,j,k,l,m,n,x,y:longint;
procedure init();
var
    i:longint;
begin
    fillchar(p,sizeof(p),0);
    for i:=1 to n do
    begin
        a[i].father:=i;
        a[i].data:=i;
    end;
end;
function find(x:longint):longint;
var
    i,j,k:longint;
begin
    i:=x;
    while (a[i].father<>i) do
        i:=a[i].father;
    k:=i;
    i:=x;
    while (i<>k) do
    begin
        j:=a[i].father;
        a[i].father:=k;
        i:=j;
    end;
    exit(k);
end;
procedure union(x,y:longint);
var
    i,j,p,q,k:longint;
begin
    p:=find(x);
    q:=find(y);
    a[q].father:=p;
end;
begin
    assign(input,'group.in');
    reset(input);
    assign(output,'group.out');
    rewrite(output);
    readln(n,m);
    init();
    for i:=1 to m do
    begin
        readln(k,x,y);
        if k=1 then
        begin
            p[x,y]:=1;
            p[y,x]:=1;
        end else
            union(x,y);
    end;
    for i:=1 to n do
        for j:=1 to n do
            if p[i,j]=1 then
                for k:=1 to n do
                    if (p[j,k]=1)and(k<>i)and(find(i)<>find(k)) then
                        union(i,k);
    fillchar(b,sizeof(b),0);
    for i:=1 to n do
        inc(b[find(i)]);
    l:=0;
    for i:=1 to n do
        if b[i]>0 then
            inc(l);
    writeln(l);
    close(input);
    close(output);
end.

program black;
var
    father:array[1..1000] of longint;
    count:array[1..1000] of longint;
    connect:array[1..1000,1..1000] of boolean;
    sum:longint;
    n:longint;
    i,j,k:longint;
function getfather(x:longint):longint;
begin
    if father[x]=x then
        exit(x);
    father[x]:=getfather(father[x]);
    exit(father[x]);
end;
procedure union(x,y:longint);
var
    fx,fy:longint;
begin
    fx:=getfather(x);
    fy:=getfather(y);
    if fx=fy then
        exit();
    father[fy]:=fx;
    count[fx]:=count[fx]+count[fy];
    count[fy]:=0;
end;
begin
    assign(input,'black.in');
    reset(input);
    assign(output,'black.out');
    rewrite(output);
    readln(n);
    for i:=1 to n do
    begin
        father[i]:=i;
        count[i]:=1;
    end;
    fillchar(connect,sizeof(connect),0);
    for i:=1 to n do
    begin
        read(sum);
        for j:=1 to sum do
        begin
            read(k);
            connect[i,k]:=true;
            connect[k,i]:=true;
        end;
    end;
    for i:=n downto 1 do
    begin
        for j:=i to n do
        begin
            if not(connect[i,j]) then
                continue;
            union(i,j);
        end;
        for j:=1 to n do
            if count[j]>n div 2 then
            begin
                writeln(i);
                halt;
            end;
    end;
    close(input);
    close(output);
end.