信使(msner)

Description

战争时期，前线有n 个哨所，每个哨所可能会与其他若干个哨所之间有通信联系。信使负责 在哨所之间传递信息，当然，这是要花费一定时间的（以天为单位）。指挥部设在第一个哨所。当指挥部下达一个命令后，指挥部就派出若干个信使向与指挥部相连 的哨所送信。当一个哨所接到信后，这个哨所内的信使们也以同样的方式向其他哨所送信。直至所有n个哨所全部接到命令后，送信才算成功。因为准备充足，每个 哨所内都安排了足够的信使（如果一个哨所与其他k个哨所有通信联系的话，这个哨所内至少会配备k个信使）。 
现在总指挥请你编一个程序，计算出完成整个送信过程最短需要多少时间。

Input

输入文件 msner.in，第 1 行有两个整数 n 和 m，中间用 1 个空格隔开，分别表示有 n 个 哨所和m条通信线路。1<=n<=100。 第 2 至 m+1 行：每行三个整数 i、j、k，中间用 1 个空格隔开，表示第 i 个和第 j 个哨所 之间存在通信线路，且这条线路要花费k 天。

Output

输出文件 msner.out，仅一个整数，表示完成整个送信过程的最短时间。如果不是所有的 哨所都能收到信，就输出-1。

Sample Input

 

4 4 

1 2 4 

2 3 7 

2 4 1 

3 4 6

Sample Output

11


直接floyed，只要求出从1点到若干个点花费最多的就是了ans=max{dis[i]};

program test;
const
  inf='msner.in';
  outf='msner.out';

var
  n,m,i,j,k,a,b,maxx:longint;
  f:array[1..100,1..100] of longint;

function min(aa,bb:longint):longint;
begin
  if aa<bb then exit(aa)
   else exit(bb);
end;

begin
  assign(input,inf);
  assign(output,outf);
  reset(input);
  rewrite(output);

  readln(n,m);

  for i:= 1 to n do
    for j:= 1 to n do
      if i<>j then f[i,j]:=maxlongint div 2;

  for i:= 1 to m do
    begin
      readln(a,b,k);
      f[a,b]:=k;
      f[b,a]:=k;
    end;

  for k:= 1 to n do
    for i:= 1 to n do
      for j:= 1 to n do
           f[i,j]:=min(f[i,j],f[i,k]+f[k,j]);

  maxx:=-maxlongint;


    for j:= 1 to n do
      if f[1,j]<>maxlongint div 2 then
       if maxx<f[1,j] then  maxx:=f[1,j];


  writeln(maxx);

  close(input);
  close(output);
end.