[模板]tarjan缩点+拓扑排序

题目：给定一个n个点m条边有向图，每个点有一个权值，求一条路径，使路径经过的点权值之和最大。你只需要求出这个权值和。

　　　允许多次经过一条边或者一个点，但是，重复经过的点，权值只计算一次。

题目简述：先tarjan缩点，再从入度为零处进行一次拓扑排序，求最长路即可，话说拓扑排序求最长路真方便。。。

注意：　要明确拓扑的写法，用栈写最优。

　　　　再进行拓扑排序之前我们要进行将点权转化为边权的操作，具体操作看拓扑排序。

#include<bits/stdc++.h>
using namespace std;
#define man 100010
inline int sc()
{    int x=0,f=1;char ch=getchar();
    while(!isdigit(ch)){    if(ch==45)f=-1;ch=getchar();}
    while(isdigit(ch)) {    x=x*10+ch-48;ch=getchar();}
    return x*f;
    }
/*TEST*/
int n,m,c[man],x[man],y[man];
/*EDGE*/
int head[man<<1],num=0;
struct edge
{    int next,to,dis;}e[man<<2];
inline void add(int from,int to,int dis) 
{    e[++num].next=head[from];
    e[num].to=to;
    e[num].dis=dis;
    head[from]=num;
    }
/*TARJAN*/
int dfn[man],low[man],bel[man],val[man],cnt=0,dep=0;
bool vis[man];
int sta[man],top=0;
void tarjan(int s)
{    low[s]=dfn[s]=++dep;vis[s]=1;sta[++top]=s;
    for(int i=head[s];i;i=e[i].next)
    {    int to=e[i].to;
        if(!dfn[to])
        {    tarjan(to);
            low[s]=min(low[s],low[to]);
            }
        else if(vis[to])
        {    low[s]=min(low[s],dfn[to]);}
        }
    if(low[s]==dfn[s])
    {    int j;cnt++;
        do
        {    j=sta[top--];
            vis[j]=0;
            val[cnt]+=c[j];
            bel[j]=cnt;
            }while(j!=s);
        }
    }
/*TOPSORT*/
inline void clear()
{    memset(e,0,sizeof(e));
    memset(head,0,sizeof(head));
    num=0;
    }
int degree[man],dis[man];
inline void topsort()
{    queue<int >q;
    for(int i=1;i<=cnt;i++)
        dis[i]=0;
    for(int i=1;i<=cnt;i++)
        if(degree[i]==0) q.push(i),dis[i]=val[i];
    while(q.size()!=0)
    {    int u=q.front();q.pop();
        for(int i=head[u];i;i=e[i].next)
        {    int to=e[i].to;
            degree[to]--;
            if(degree[to]==0) q.push(to);
            dis[to]=max(dis[to],dis[u]+e[i].dis);
            }
        }
    int ans=0;
    for(int i=1;i<=cnt;i++)
        ans=max(ans,dis[i]);
    printf("%d
",ans);
    }
int main()
{    n=sc();m=sc();
    for(int i=1;i<=n;i++)
        c[i]=sc();
    for(int i=1;i<=m;i++)
    {    x[i]=sc(),y[i]=sc();
        add(x[i],y[i],0);
        }
    for(int i=1;i<=n;i++)
        if(!dfn[i]) tarjan(i);
    clear();
    for(int i=1;i<=m;i++)
    {    if(bel[ x[i] ]==bel[ y[i] ]) continue;
        add(bel[x[i]],bel[y[i]],val[bel[y[i]]]);
        degree[bel[y[i]]]++;
        }
    topsort();
    return 0;
    }