LOJ P3953 逛公园 NOIP dp 最短路 拓扑排序

https://www.luogu.org/problemnew/show/P3953

开o2过了不开o2re一个点。。。写法如题

顺便一提这道题在我校oj是a不了的因为我校土豆服务器速度奇慢1s时限

// luogu-judger-enable-o2
#include<iostream>
#include<cstdio>
#include<algorithm>
#include<cstring>
#include<cmath>
#include<queue>
using namespace std;
const int maxn=110000;
int n,m,k,p;
struct nod{
    int y,v,next;
}e[2][maxn*2];
int head[2][maxn]={};
int dis[2][maxn]={};
int d[maxn]={},zz[maxn]={};
int mx,cnt=0,ans=0,tot=0;
int f[60][maxn]={};
bool vis[maxn]={};
queue< int >q;
void init(int x,int y,int v){
    e[0][++tot].y=y;e[0][tot].v=v;e[0][tot].next=head[0][x];head[0][x]=tot;
    e[1][tot].y=x;e[1][tot].v=v;e[1][tot].next=head[1][y];head[1][y]=tot;
}
void SPFA(int x,int z){
    for(int i=1;i<=n;i++)vis[i]=0;
    q.push(x);vis[x]=1;dis[z][x]=0;
    int y,v,v1;
    while(!q.empty()){
        x=q.front();q.pop();v=dis[z][x];
        for(int i=head[z][x];i;i=e[z][i].next){
            y=e[z][i].y;v1=e[z][i].v;
            if(dis[z][y]>v+v1){
                dis[z][y]=v+v1;
                if(!vis[y])q.push(y);
                vis[y]=1;
            }
        }
        vis[x]=0;
    }
}
bool Topsort(){
    for(int i=1;i<=n;i++)d[i]=0;
    for(int i=1;i<=n;i++){
        for(int j=head[0][i];j;j=e[0][j].next){
            if(e[0][j].v+dis[0][i]==dis[0][e[0][j].y])d[e[0][j].y]++;//按照最短路连边
        }
    }cnt=0;
    for(int i=1;i<=n;i++)if(!d[i])zz[++cnt]=i;
    for(int i=1;i<=cnt;i++){
        for(int j=head[0][zz[i]];j;j=e[0][j].next){
            if(e[0][j].v+dis[0][zz[i]]==dis[0][e[0][j].y]){
                d[e[0][j].y]--;
                if(!d[e[0][j].y])zz[++cnt]=e[0][j].y;
            }
        }
    }
    for(int j=1;j<=n;j++){//如果有0边构成的环，那么这个环一定到最后也有d
        if(d[j]&&dis[0][j]+dis[1][j]<=k+dis[0][n])return 1;//如果环在合法路上就不用dp了有无数种方案
    }return 0;
}
void DP(){
    for(int i=0;i<=k;i++)
        for(int j=0;j<=n;j++)f[i][j]=0;
    ans=0;f[0][1]=1;
    int y,v,x;
    for(int i=0;i<=k;i++){
        for(int j=1;j<=cnt;j++){
            x=zz[j];if(dis[1][x]==mx)continue;
            for(int w=head[0][x];w;w=e[0][w].next){
                y=e[0][w].y;v=e[0][w].v;
                if(dis[0][x]+v==dis[0][y])f[i][y]=(f[i][y]+f[i][x])%p;//用拓扑序给f[k][i]汇总一下
            }
        }
        for(int j=1;j<=n;j++){//f[k][x]往下延伸
            x=j;if(dis[1][x]==mx)continue;
            for(int w=head[0][x];w;w=e[0][w].next){
                y=e[0][w].y;v=e[0][w].v;
                if(dis[0][x]+v!=dis[0][y]){
                    if(i+dis[0][x]+v-dis[0][y]<=k)
                        f[i+dis[0][x]+v-dis[0][y]][y]=(f[i+dis[0][x]+v-dis[0][y]][y]+f[i][x])%p;
                }
            }
        }ans=(ans+f[i][n])%p;
    }
}
int main(){
    //freopen("now.in","r",stdin);
    int T;scanf("%d",&T);mx=(int)1e8;
    while(T-->0){
        scanf("%d%d%d%d",&n,&m,&k,&p);
        for(int i=0;i<=n;i++)dis[0][i]=dis[1][i]=mx;
        for(int i=0;i<=n;i++)head[0][i]=head[1][i]=0;tot=0;
        int x,y,v;
        for(int i=1;i<=m;i++){
            scanf("%d%d%d",&x,&y,&v);init(x,y,v);
        }
        SPFA(1,0);SPFA(n,1);//cout<<dis[1][1]<<dis[0][n]<<endl;
        if(dis[1][1]==mx)printf("0
");
        else{
            if(Topsort()){
                printf("-1
");
            }
            else{
                DP();
                printf("%d
",ans);
            }
        }
    }
    return 0;
}