SSL 1624——小萨的烦恼【最短路】【枚举】

背景

　　圣诞节又要到了！小萨希望和自己心仪的MM一起出去度过一个浪漫的的圣诞节。他进行了详尽的准备，找到了N个很适合他们去约会的好地方，但无奈小萨和他的MM都是初三学校，晚上必须回学校上晚修，没有足够的时间让他们走遍每一个地方。迫于无奈，小萨选择了一个最合适的地方S。小萨打算和他的MM一起步行到那个地方，那样他们就有很多时间来聊天玩乐，但是无奈时间有限，小萨决定坐公共汽车过去。然而，小萨发觉，自己的钱只够买一张公共汽车车票了！小萨该怎么办呢？他找到了你……
【题目描述】
　　小萨将给出一张地图，它可以看做一个有N（N<=100）个结点的图。这张地图有N个公共汽车站，小萨只可以在这N个汽车站上公共汽车。有些车站之间存在一条双向通路，无论是公共汽车还是小萨，都只能走这些通路。若两个车站之间的距离为d，步行所需要的时间为2*d秒，坐公共汽车所需要的时间为d秒。小萨他们只有T秒的时间，他希望你求出他和他的MM出去约会后能否及时赶回来，若不能，则输出“You are day dreaming!”，否则输出他们所需要花费的最少时间。
注意：一张公共汽车车票可以使用两次（只可以搭乘同一辆公共汽车），即可以认为小萨去约会地点的时间和回来的时间相等。

Input

第一行有三个整数N、T、S
接下来是一个N*N的邻接矩阵。两两车站之间的距离不超过10^9。A[I,j]为0表示I和J车站不连通。

Output

若小萨他们不能在限定时间内赶回学校，那么输出“You are day dreaming!”（不包括引号）
否则，输出一个整数，为他们所需要花费的最少时间。

Sample Input

4 5 4
0 1 1 1
1 0 1 1
1 1 0 1
1 1 1 0
Sample Output

2
Hint

【数据范围】
20%的数据：N<=10
100%的数据：N<=70 T<=10^9

---

因为公共汽车是来回使用的（坐车的时间一定比走路的耗时少，【其实，谁知道小萨不是闪电侠呢！】）

分析：

①将读入的距离乘2
②枚举第i个点坐公共汽车坐到第j个点
③用dij求第1到i的走路的耗时+第i到j乘车的耗时+第j到s走路的耗时
④判断是否为最小的耗时，是则更新
⑤输出最小耗时

---

代码如下：

var
  a:array [0..101,0..101] of longint;
  b:array [0..101] of longint;
  f:array [0..101] of boolean;
  n,min,t,s:longint;
procedure init;
var
  i,j:longint;
begin
  readln(n,t,s);
  for i:=1 to n do
    for j:=1 to n do
      begin
        read(a[i,j]);
        if a[i,j]=0 then a[i,j]:=maxlongint
                    else a[i,j]:=a[i,j]*2;
      end;
end;

procedure main;
var
  i,j,t:longint;
begin
  for i:=1 to n do
    b[i]:=a[1,i];
  fillchar(f,sizeof(f),true);
  f[1]:=false;
  for i:=1 to n-1 do
    begin
      min:=maxlongint;
      for j:=1 to n do
        if f[j] and (b[j]<min) then
          begin
            min:=b[j];
            t:=j;
          end;
      f[t]:=false;
      for j:=1 to n do
        if f[j] and (a[t,j]<>maxlongint) and (b[t]+a[t,j]<b[j]) then
          b[j]:=b[t]+a[t,j];
    end;
end;

procedure immain;
var
  i,j,min:longint;
begin
  min:=maxlongint;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<>maxlongint then
        begin
          a[i,j]:=a[i,j] div 2;
          main;
          if b[s]<min then min:=b[s];
          a[i,j]:=a[i,j]*2;
        end;
  if min*2>t then write('You are day dreaming!')
             else write(min*2);
end;

begin
  init;
  main;
  immain;
end.