码迷,mamicode.com
首页 > 其他好文 > 详细

洛谷2296 寻找道路

时间:2015-08-20 22:20:10      阅读:169      评论:0      收藏:0      [点我收藏+]

标签:

题目描述

在有向图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.

 

洛谷2296 寻找道路

标签:

原文地址:http://www.cnblogs.com/wuminyan/p/4746300.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!