洛谷1339 热浪最短路

最新推荐文章于 2021-12-04 17:27:38 发布

masterwater

最新推荐文章于 2021-12-04 17:27:38 发布

阅读量285

点赞数

分类专栏：最短路

本文链接：https://blog.csdn.net/masterwater/article/details/61208467

版权

最短路专栏收录该内容

5 篇文章 0 订阅

订阅专栏

题目描述

德克萨斯纯朴的民眾们这个夏天正在遭受巨大的热浪！！！他们的德克萨斯长角牛吃起来不错，可是他们并不是很擅长生產富含奶油的乳製品。Farmer John此时以先天下之忧而忧，后天下之乐而乐的精神，身先士卒地承担起向德克萨斯运送大量的营养冰凉的牛奶的重任，以减轻德克萨斯人忍受酷暑的痛苦。

FJ已经研究过可以把牛奶从威斯康星运送到德克萨斯州的路线。这些路线包括起始点和终点先一共经过T (1 <= T <= 2,500)个城镇，方便地标号為1到T。除了起点和终点外地每个城镇由两条双向道路连向至少两个其它地城镇。每条道路有一个通过费用（包括油费，过路费等等）。

给定一个地图，包含C (1 <= C <= 6,200)条直接连接2个城镇的道路。每条道路由道路的起点Rs，终点Re (1 <= Rs <= T; 1 <= Re <= T)，和花费(1 <= Ci <= 1,000)组成。求从起始的城镇Ts (1 <= Ts <= T)到终点的城镇Te(1 <= Te <= T)最小的总费用。

输入输出格式

输入格式：

第一行: 4个由空格隔开的整数: T, C, Ts, Te

第2到第C+1行: 第i+1行描述第i条道路。有3个由空格隔开的整数: Rs, Re和Ci

输出格式：

一个单独的整数表示从Ts到Te的最小总费用。数据保证至少存在一条道路。

输入输出样例

输入样例#1：

输出样例#1：

说明

【样例说明】

5->6->1->4 (3 + 1 + 3)

题解：最短路裸题 spfa

const
  maxn=3000;
  maxm=100000;
var
  edge:array[1..maxm,1..3]of longint;
  last,next:array[0..maxm]of longint;
  dis,f:array[1..maxn]of longint; 
  state:array[1..300000]of longint;
  n,m,s,t,sum:longint;

procedure add(x,y,z:longint);
begin
  inc(sum);
  edge[sum,1]:=x;edge[sum,2]:=y;edge[sum,3]:=z;
  next[sum]:=last[x];
  last[x]:=sum;
end;

procedure init;
var
  i,x,y,z:longint;
begin
  readln(n,m,s,t);
  for i:=1 to m do
  begin
    readln(x,y,z);
    add(x,y,z);
    add(y,x,z);
  end;
  fillchar(dis,sizeof(dis),$7f);
end;

procedure spfa(x:longint);
var
  head,tail,now,py:longint;
  i:longint;
begin
  head:=0;tail:=1;
  state[1]:=x;f[x]:=1;dis[x]:=0;
  repeat
    inc(head);
    now:=state[head];
    i:=last[now];
    while i<>0 do
    begin
      py:=edge[i,2];
      if dis[now]+edge[i,3]<dis[py] then
      begin
        dis[py]:=dis[now]+edge[i,3];
        if f[py]=0 then
        begin
          inc(tail);
          state[tail]:=py;
          f[py]:=1;
        end;
      end;
      i:=next[i];
    end;
    f[now]:=0;
  until head>=tail;
end;

begin
  init;
  spfa(s);
  writeln(dis[t]);
end.