小萨的烦恼

小萨的烦恼
Time Limit:10000MS  Memory Limit:65536K
Total Submit:195 Accepted:66 
Case Time Limit:1000MS
Description
　　圣诞节又要到了！小萨希望和自己心仪的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

var
 a,s:array[1..100,1..100] of longint;
 v:array[1..100] of boolean;
 i,j,k,n,m,si,t,ans:longint;
function sam(aa,bb:longint):longint;
begin
 if aa<bb then exit(aa)
 else exit(bb);
end;
begin
 read(n,t,si);
 for i:=1 to n do
  for j:=1 to n do
  begin
   read(s[i,j]);
   if s[i,j]=0 then s[i,j]:=10000000;
    a[i,j]:=s[i,j]*2;
  end;
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
   if (k<>i)and(i<>j)and(k<>j) then
    begin
     a[i,j]:=sam(a[i,k]+a[k,j],a[i,j]);
     s[i,j]:=sam(s[i,j],s[i,k]+a[k,j]);
     s[i,j]:=sam(s[i,j],a[i,k]+s[k,j]);
    end;
   ans:=s[1,si]*2;
 if ans<=t then write(ans)
 else write('You are day dreaming!');
end.

var

 a,s:array[1..100,1..100] of longint;
 v:array[1..100] of boolean;
 i,j,k,n,m,si,t,ans:longint;
function sam(aa,bb:longint):longint;
begin
 if aa<bb then exit(aa)
 else exit(bb);
end;
begin
 read(n,t,si);
 for i:=1 to n do
  for j:=1 to n do
  begin
   read(s[i,j]);
   if s[i,j]=0 then s[i,j]:=10000000;
    a[i,j]:=s[i,j]*2;
  end;
 for k:=1 to n do
  for i:=1 to n do
   for j:=1 to n do
   if (k<>i)and(i<>j)and(k<>j) then
    begin
     a[i,j]:=sam(a[i,k]+a[k,j],a[i,j]);
     s[i,j]:=sam(s[i,j],s[i,k]+a[k,j]);
     s[i,j]:=sam(s[i,j],a[i,k]+s[k,j]);
    end;
   ans:=s[1,si]*2;
 if ans<=t then write(ans)
 else write('You are day dreaming!');
end.