phoneline

2132. 【2017.4.21普及】架设电话线 
(File IO): input:phoneline.in output:phoneline.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

       Farmer John打算将电话线引到自己的农场，但电信公司并不打算为他提供免费服务。于是，FJ必须为此向电信公司支付一定的费用。
    FJ的农场周围分布着N(1 <= N <= 1,000)根按1..N顺次编号的废弃的电话线
杆，任意两根电话线杆间都没有电话线相连。一共P(1 <= P <= 10,000)对电话
线杆间可以拉电话线，其余的那些由于隔得太远而无法被连接。第i对电话线杆的两个端点分别为A_i、B_i，它们间的距离为L_i (1 <= L_i <= 1,000,000)。数据中保证每对{A_i，B_i}最多只出现1次。编号为1的电话线杆已经接入了全国的电话网络，整个农场的电话线全都连到了编号为N的电话线杆上。也就是说，FJ的任务仅仅是找一条将1号和N号电话线杆连起来的路径，其余的电话线杆并不一定要连入电话网络。
    经过谈判，电信公司最终同意免费为FJ连结K(0 <= K < N)对由FJ指定的电话线杆。对于此外的那些电话线，FJ需要为它们付的费用，等于其中最长的电话线的长度（每根电话线仅连结一对电话线杆）。如果需要连结的电话线杆不超过K对，那么FJ的总支出为0。
    请你计算一下，FJ最少需要在电话线上花多少钱。
 

输入

第1行: 3个用空格隔开的整数：N，P，以及K
第2..P+1行: 第i+1行为3个用空格隔开的整数：A_i，B_i，L_i
 

输出

 第1行: 输出1个整数，为FJ在这项工程上的最小支出。如果任务不可能完成，输出-1。
 

样例输入

5 7 1
1 2 5
3 1 4
2 4 8
3 2 3
5 2 9
3 4 7
4 5 6

输入说明:
    一共有5根废弃的电话线杆。电话线杆1不能直接与电话线杆4、5相连。电话线杆5不能直接与电话线杆1、3相连。其余所有电话线杆间均可拉电话线。电信公司可以免费为FJ连结一对电话线杆。
 

样例输出

4

输出说明:
   FJ选择如下的连结方案：1->3；3->2；2->5，这3对电话线杆间需要的电话线的长度分别为4、3、9。FJ让电信公司提供那条长度为9的电话线，于是，他所需要购买的电话线的最大长度为4。

 

数据范围限制

uses math;
var
        a,b,c,d,i,j,k,maw:longint;
        v:array[1..1000,1..1000]of longint;
        f:array[1..1000,1..1000]of longint;
        p:array[1..1000]of boolean;
        u:longint;
        po:boolean;
procedure pd(s:longint);
var
        i,ma,mi:longint;
begin
        if po=false then
                exit;
        p[s]:=false;
        ma:=maxlongint;
        for i:=1 to a do
        begin
                if (p[i]=true)then
                begin
                        f[1,i]:=min(f[1,s]+f[s,i],f[1,i]);
                        if (f[1,i]<=ma)and(p[i]=true) then
                        begin
                                ma:=f[1,i];
                                mi:=i;
                        end;
                end;
        end;
        inc(u);
        if u=a then
        begin
                po:=false;
                exit;
        end;
        pd(mi);
        if po=false then
                exit;
end;
procedure ss(l,r:longint);
var
        mid,i,j:longint;
begin
        if (l=r) then
        begin
                writeln(l);
                halt;
        end;
        mid:=(l+r) div 2;
        for i:=1 to 1000 do
        begin
                for j:=1 to 1000 do
                begin
                        if v[i,j]=2139062143 then
                        begin
                                f[i,j]:=maxlongint div 3;
                        end
                                else
                        if v[i,j]>mid then
                        f[i,j]:=1
                                else
                        if v[i,j]<=mid then
                        f[i,j]:=0;
                end;
        end;
        fillchar(p,sizeof(p),true);
        u:=1;
        po:=true;
        f[1,1]:=0;
        pd(1);
        if f[1,a]=maxlongint div 3 then
        begin
                writeln(-1);
                halt;
        end;
        if f[1,a]<=c then
                ss(l,mid)
        else
                ss(mid+1,r);
end;
begin
        assign(input,'phoneline.in');reset(input);
        assign(output,'phoneline.out');rewrite(output);
        //assign(input,'1.in');reset(input);
        read(a,b,c);
        fillchar(v,sizeof(v),127);
        for d:=1 to b do
        begin
                readln(i,j,k);
                v[i,j]:=k;
                v[j,i]:=k;
                maw:=max(maw,k);
        end;
        ss(0,maw);
        close(input);
        close(output);
end.