题目描述

小Z最近出去旅游，遇上倒霉事了。他和旅游团一起去游洞穴。这里有n个洞穴，编号为1到n。它们之间，有的有双向的小路相连，有的却没有，不过所有洞穴都通过小路连在了一起，没有任何两个洞穴不能相互到达。当游客们分散在各处的时候，忽然出了些故障，所有灯全部熄灭。这时广播响起，要求游客们迅速疏散。
有两个洞穴是出口，分别编号1和n，每个游客都选择最短的路线，从某一个出口逃离。所有的小路都是有长度的，而所有游客的速度都认为是1。
现在请问，在给定的T时间内，最多有多少人可以逃离。另一个问题，最慢的游客离开需要多少时间。

输入

第一行，三个整数，n，m和T，分别表示洞穴的数目，小路的数量和给定的逃离时间。
接下来m行，每行三个整数x，y和L，表示这条小路连接了编号为x和y的洞穴，而它的长度为L。x和y互不相同，且都在1到n之间。任何两个洞穴之间最多只有一条小路将它们直接相连。
下一行，一个整数k，表示游客的数量。
最后一行，k个整数，每个都在1到n之间，表示每个游客所在的洞穴(可能一个洞穴会有多个人)。

输出

输出两行，每行一个整数。第一行输出T时间内多少人可以逃离，第二行输出最慢的游客逃离洞穴所需要的时间。

思路

用Floyd求出最短路，然后进行一些判断就可以了

var
  f:array[0..1000,0..1000] of longint;
  i,j,k,n,m,s,t,x,y,z,max:longint;

function min(x,y:longint):longint;
begin
  if x<=y then exit(x)
    else exit(y);
end;


begin
  assign(input,'escape.in'); reset(input);
  assign(output,'escape.out'); rewrite(output);
  readln(n,m,t);
  for i:=1 to n do
    for j:=1 to n do
      f[i,j]:=maxlongint div 2;
  for i:=1 to m do
    begin
      readln(x,y,z);
      f[x,y]:=z;
      f[y,x]:=z;
    end;
  for i:=1 to n do
    f[i,i]:=0;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if (i<>j) and (j<>k) and (k<>i) and (f[i,k]+f[k,j]