标签:
在有向图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:
3 2 1 2 2 1 1 3
输出样例#1:
-1
输入样例#2:
6 6 1 2 1 3 2 6 2 5 4 5 3 4 1 5
输出样例#2:
3
解释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; begin for i:=1 to n do d[i]:=maxlongint; d[y]:=0; for i:=1 to n do begin min:=maxlongint; for j:=1 to n do if (min>d[j]) and ( pd[j]) then begin min:=d[j]; minn:=j; end; if min=maxlongint then exit; pd[minn]:=false; l:=head[minn]; while l<>0 do begin if (min+1<d[v[l]]) and ( pd[v[l]]) then d[v[l]]:=min+1; l:=next[l]; end; end; end; begin read(n,m); for i:=1 to m do begin read(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 do begin inc(h); now:=b[h]; pd[now]:=true; l:=head[now]; while l<>0 do begin if pd[v[l]]=false then begin inc(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 then begin inc(sum); c[sum]:=i; end; for i:=1 to sum do begin l:=head[c[i]]; while l<>0 do begin pd[v[l]]:=false; l:=next[l]; end; end; dij; writeln(d[x]); end.
标签:
原文地址:http://www.cnblogs.com/wuminyan/p/4746300.html