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 11 2 53 1 42 4 83 2 35 2 93 4 74 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.