【CF721C】Journey（拓扑排序，最短路，DP）

题意：给一个无环的图,问用不超过T的时间从1到n最多可以经过多少个点。要求输出一条路径。

思路：因为无环，可以用DP做。不过因为时间最短的原因要拓扑排序后再DP，目测由底向上的更新也是可以的。

 const oo=;
 var dp,f:array[..,..]of longint;
     head,vet,next,len,flag,d,q,b:array[..]of longint;
     n,m,tot,i,j,time,k,x,y,z,ans:longint;

 procedure add(a,b,c:longint);
 begin
  inc(tot);
  next[tot]:=head[a];
  vet[tot]:=b;
  len[tot]:=c;
  head[a]:=tot;
 end;

 procedure print(k,m:longint);
 begin
  if m= then begin write(k); exit; end;
  print(f[k,m],m-);
  write(' ',k);
 end;

 procedure topsort;
 var t,w,i,e,v,u:longint;
 begin
  fillchar(b,sizeof(b),);
  t:=; w:=;
  for i:= to n do
   if d[i]= then begin inc(w); q[w]:=i; b[i]:=; end;
  while t<w do
  begin
   inc(t); u:=q[t];
   e:=head[u];
   while e<> do
   begin
    v:=vet[e];
    for i:= to n- do
     if dp[u,i]+len[e]<dp[v,i+] then
     begin
      dp[v,i+]:=dp[u,i]+len[e];
      f[v,i+]:=u;
     end;
    dec(d[v]);
    e:=next[e];
   end;
   for i:= to n do
    if (d[i]=)and(b[i]=) then begin inc(w); q[w]:=i; b[i]:=; end;
  end;
 end;

 begin
  //assign(input,'721C.in'); reset(input);
  //assign(output,'721C.out'); rewrite(output);
  readln(n,m,time);
  for i:= to m do
  begin
   readln(x,y,z);
   add(x,y,z);
   inc(d[y]);
  end;
  for i:= to n do
   for j:= to n do dp[i,j]:=oo;
  dp[,]:=;
  topsort;
  for i:=n downto  do
   if dp[n,i]<=time then begin ans:=i; break; end;
  writeln(ans);
  print(n,ans);
  //close(input);
  //close(output);
 end.