自出题，写题解《招募士兵》

招募士兵
（conscription.pas/c/cpp）
【问题描述】
小W拥有一个国家，现在他希望建立一支军队来保护他的国家。他选中了N个女孩和M个男孩希望招募他们成为他的士兵。在没有任何先决条件的情况下，他招募一个士兵需要花费10000RMB。现在小W可以利用这些人之间的关系来减少他的花费。如果女孩X和男孩Y存在有一个关系值D（两人之间可能有多个关系值），而且她们之中有一个人被招募了。那么小W可以在招募另一个人的时候减少D的花费（实际10000-D的费用）。
现在给你这些男孩女孩之间的关系，希望你告诉小W告诉他招募所有人的最少花费。
注意：招募某一个人时，只能利用一个关系。
【输入】
输入文件conscription.in中文件第一行包含三个整数N，M，R。表示N个女孩，M个男孩与R条关系。
接下来R行，每行包含三个整数Xi，Yi和Di，表示女孩Xi和男孩Yi有Di的关系。
【输出】
conscription.out中只有一行一个数，为最小费用。
【输出样例】
5 5 8
4 3 6831
1 3 4583
0 0 6592
0 1 3063
3 3 4975
1 3 2049
4 2 2104
2 2 781
【输出样例】
71071

【数据说明】
100%的数据:1<=N, M <=100000，0 <=R <=200,000，0 < di < 10000

本题烤驴到一个并查集的问题，然后，我们把他可以减少的价钱排个序，再一个一个地去并起来，如果他们的father一样，就不可以并起来，这样子就能解决问题。

参考程序：

type        new=record                x:longint;                y:longint;                r:longint;                bz:boolean;        end;var        i,j,k,l,n,m,r,v,x,y:longint;        ans:int64;        f:array[0..200000] of longint;        a:array[1..200000] of new;        bz:boolean;procedure qs(l,r:longint);var        i,j,m:longint;        t:new;begin        i:=l;        j:=r;        m:=a[(l+r) div 2].r;        repeat                while a[i].r>m do inc(i);                while a[j].r<m do dec(j);                if i<=j then                begin                        t:=a[i];                        a[i]:=a[j];                        a[j]:=t;                        inc(i);                        dec(j);                end;        until i>j;        if l<j then qs(l,j);        if i<r then qs(i,r);end;function zs(t:longint):longint;var        i,j,k,l:longint;begin        l:=t;        while f[t]<>t do        begin                t:=f[t];        end;        while f[l]<>t do        begin                j:=f[l];                f[l]:=t;                l:=j;        end;        zs:=t;end;begin        readln(n,m,r);        for i:=1 to r do        begin                readln(a[i].x,a[i].y,a[i].r);                a[i].y:=a[i].y+n;        end;        for i:=1 to n+m do f[i]:=i;        qs(1,r);        ans:=0;        v:=0;        for i:=1 to r do        begin                if zs(a[i].x)<>zs(a[i].y) then                begin                        x:=zs(a[i].x);                        y:=zs(a[i].y);                        f[x]:=y;                        a[i].bz:=true;                        ans:=ans+(10000-a[i].r);                        inc(v);                end;        end;        writeln(ans+(n+m-v)*10000);end.