电报

题目大意

n个点，每个点出度均为1的有向图。
你可以将j->k改成j->l，代价为c[j]。
求最小代价，使得有向图变成一个环。

贪心

我们把问题描述成删去若干条边，删除每条边都有代价，最小代价使得每个联通块都是一条链（这样才能连成环）。
假如一个点有k个入度，至少k-1个要被删掉。
对于树的情况贪心保留最大代价的入边。
环上至少一条边要删去，再讨论一下即可。
注意特判初始所有点连成一个环的情况。

#include<cstdio>
#include<algorithm>
#define fo(i,a,b) for(i=a;i<=b;i++)
using namespace std;
typedef long long ll;
const int maxn=100000+10,inf=2000000000;
int a[maxn],b[maxn],c[maxn],g[maxn],p[maxn],belong[maxn];
int h[maxn],go[maxn],nxt[maxn];
int h2[maxn],g2[maxn],n2[maxn];
ll f[maxn];
bool pd[maxn],bz[maxn];
int i,j,k,l,t,n,m,tot,top,cnt,wdc,mi;
ll ans,sum,num;
bool czy;
int read(){
    int x=0,f=1;
    char ch=getchar();
    while (ch<'0'||ch>'9'){
        if (ch=='-') f=-1;
        ch=getchar();
    }
    while (ch>='0'&&ch<='9'){
        x=x*10+ch-'0';
        ch=getchar();
    }
    return x*f;
}
void add(int x,int y){
    go[++tot]=y;
    nxt[tot]=h[x];
    h[x]=tot;
}
void add2(int x,int y){
    g2[++cnt]=y;
    n2[cnt]=h2[x];
    h2[x]=cnt;
}
void dfs(int x){
    if (pd[a[x]]){
        belong[x]=++tot;
        bz[x]=1;
        wdc=a[x];
        return;
    }
    if (belong[a[x]]){
        belong[x]=belong[a[x]];
        return;
    }
    pd[x]=1;
    dfs(a[x]);
    belong[x]=belong[a[x]];
    if (wdc) bz[x]=1;
    if (x==wdc) wdc=0;
    pd[x]=0;
}
void dg(int x){
    int t=h[x],mx=0;
    ll l=0;
    while (t){
        dg(go[t]);
        mx=max(mx,c[go[t]]);
        l+=(ll)c[go[t]];
        t=nxt[t];
    }
    ans+=(ll)l-mx;
}
void work(int x){
    top=0;
    t=h2[x];
    while (t){
        p[++top]=g2[t];
        t=n2[t];
    }
    fo(i,1,top)
        if (!bz[p[i]]&&bz[a[p[i]]]){
            dg(p[i]);
            f[a[p[i]]]+=(ll)c[p[i]];
            g[a[p[i]]]=max(g[a[p[i]]],c[p[i]]);
        }
    fo(i,1,top)
        if (bz[p[i]]) b[a[p[i]]]=c[p[i]];
    mi=inf;
    fo(i,1,top)
        if (bz[p[i]]) mi=min(mi,c[p[i]]);
    sum=0;
    fo(i,1,top)
        if (bz[p[i]]) sum+=f[p[i]];
    num=sum+mi;
    sum=0;
    fo(i,1,top)
        if (bz[p[i]]) sum+=min(f[p[i]],f[p[i]]-g[p[i]]+(ll)b[p[i]]);
    fo(i,1,top)
        if (bz[p[i]]){
            sum-=min(f[p[i]],f[p[i]]-g[p[i]]+(ll)b[p[i]]);
            num=min(num,sum+f[p[i]]-g[p[i]]+(ll)b[p[i]]);
            sum+=min(f[p[i]],f[p[i]]-g[p[i]]+(ll)b[p[i]]);
        }
    ans+=num;
}
int main(){
    freopen("telegraph.in","r",stdin);freopen("telegraph.out","w",stdout);
    n=read();
    fo(i,1,n){
        a[i]=read();c[i]=read();
        add(a[i],i);
    }
    tot=0;
    fo(i,1,n)
        if (!belong[i]){
            wdc=0;
            dfs(i);
        }
    if (tot==1){
        czy=1;
        fo(i,1,n)
            if (!bz[i]){
                czy=0;
                break;
            }
        if (czy){
            printf("0\n");
            return 0;
        }
    }
    fo(i,1,n) add2(belong[i],i);
    fo(wdc,1,tot) work(wdc);
    printf("%lld\n",ans);
}