洛谷2296 寻找道路

题目描述

在有向图G 中，每条边的长度均为1 ，现给定起点和终点，请你在图中找一条从起点到终点的路径，该路径满足以下条件：
1 ．路径上的所有点的出边所指向的点都直接或间接与终点连通。
2 ．在满足条件1 的情况下使路径最短。
注意：图G 中可能存在重边和自环，题目保证终点没有出边。
请你输出符合条件的路径的长度。

输入输出格式

输入格式：

输入文件名为road .in。
第一行有两个用一个空格隔开的整数n 和m ，表示图有n 个点和m 条边。
接下来的m 行每行2 个整数x 、y ，之间用一个空格隔开，表示有一条边从点x 指向点y 。
最后一行有两个用一个空格隔开的整数s 、t ，表示起点为s ，终点为t 。

输出格式：

输出文件名为road .out 。
输出只有一行，包含一个整数，表示满足题目᧿述的最短路径的长度。如果这样的路径不存在，输出- 1 。

输入输出样例

输入样例#1：

输出样例#1：

-1

输入样例#2：

输出样例#2：

说明

解释1：

如上图所示，箭头表示有向道路，圆点表示城市。起点1 与终点3 不连通，所以满足题
目᧿述的路径不存在，故输出- 1 。
解释2：

如上图所示，满足条件的路径为1 - >3- >4- >5。注意点2 不能在答案路径中，因为点2连了一条边到点6 ，而点6 不与终点5 连通。
对于30%的数据，0<n≤10，0<m≤20；
对于60%的数据，0<n≤100，0<m≤2000；
对于100%的数据，0<n≤10,000，0<m≤200,000，0<x，y，s，t≤n，x≠t。

解题思路

利用宽搜先去掉所有的不能使用的点，具体就是把能跑到的赋值，在用循环找到跑不到的，把与他相连的点都去掉，只需要去掉直接相连的就行！！！然后跑一边dij或者spfa就能过，这里要注意的是点和边都有点多，应该用链表储存

program ChoosePath;
var pd:Array[0..10000] of boolean;u,v,head,next:array[0..200000] of longint;b,d,c:array[0..10000] of longint;i,j,m,n,now,x,y,h,t,l,sum:Longint;
procedure dij;
var i,min,minn,l:longint;
beginfor i:=1 to n do d[i]:=maxlongint;d[y]:=0;for i:=1 to n dobeginmin:=maxlongint;for j:=1 to n do if (min>d[j]) and (  pd[j]) thenbeginmin:=d[j];minn:=j;end;if min=maxlongint then exit;pd[minn]:=false;l:=head[minn];while l<>0 dobeginif (min+1<d[v[l]]) and ( pd[v[l]]) then d[v[l]]:=min+1;l:=next[l];end;end;
end;beginread(n,m);for i:=1 to m dobeginread(v[i],u[i]);next[i]:=head[u[i]];head[u[i]]:=i;end;read(x,y);h:=0;t:=0;inc(t);b[t]:=y;while h<=t dobegininc(h);now:=b[h];pd[now]:=true;l:=head[now];while l<>0 dobeginif pd[v[l]]=false thenbegininc(t);b[t]:=v[l];pd[v[l]]:=true;end;l:=next[l]end;end;for i:=1 to n do if pd[i]=false thenbegininc(sum);c[sum]:=i;end;for i:=1 to sum dobeginl:=head[c[i]];while l<>0 dobeginpd[v[l]]:=false;l:=next[l];end;end;dij;writeln(d[x]);
end.