CODEVS 3000公路修建问题-CSDN博客

题目描述 Description

OI island是一个非常漂亮的岛屿,自开发以来,到这儿来旅游的人很多。然而，由于该岛屿刚刚开发不久，所以那里的交通情况还是很糟糕。所以，OIER Association组织成立了，旨在建立OI island的交通系统。 OI island有n个旅游景点，不妨将它们从1到n标号。现在，OIER Association需要修公路将这些景点连接起来。一条公路连接两个景点。公路有，不妨称它们为一级公路和二级公路。一级公路上的车速快，但是修路的花费要大一些。 OIER Association打算修n-1条公路将这些景点连接起来（使得任意两个景点之间都会有一条路径）。为了保证公路系统的效率, OIER Association希望在这n-1条公路之中,至少有k条(0≤k≤n-1)一级公路。OIER Association也不希望为一条公路花费的钱。所以，他们希望在满足上述条件的情况下，花费最多的一条公路的花费尽可能的少。而你的任务就是，在给定一些可能修建的公路的情况下，选择n-1条公路，满足上面的条件。

输入描述 Input Description

第一行有三个数n,k,m，这些数之间用空格分开。 N和k如前所述，m表示有m对景点之间可以修公路。以下的m行，每一行有4个正整数a,b,c1,c2表示在景点a与b 之间可以修公路,如果修一级公路,则需要c1的花费,如果修二级公路,则需要c2的花费。

输出描述 Output Description

一个数据，表示花费最大的公路的花费。

样例输入 Sample Input

样例输出 Sample Output

数据范围及提示 Data Size & Hint

1≤n≤10000，0≤k≤n-1，n-1≤m≤20000，1≤a,b≤n,a≠b,1≤c2≤c1≤30000

解题思路

标程：二分长度之后用01树建树判断输出
但由于数据太水，贪心即可：对c1排序，然后取k条边，再对c2排序，取剩余边，跑一边克鲁斯卡尔更新最大值，即可AC

 1 program t5;
 2 type tre=record
 3 l,r,c1,c2:longint;
 4 end;
 5 var
 6 tr:array[1..20000] of tre;
 7 ro:array[1..10000] of longint;
 8 m,n,i,max,sum,k:longint;
 9 function root(x:longint):longint;
10 begin
11     if ro[x]=x then exit(x);
12     root:=root(ro[x]);
13     ro[x]:=root;
14     exit(root);
15 end;
16   procedure sort1(l,r: longint);
17       var
18          i,j,x: longint;
19          y:tre;
20       begin
21          i:=l;
22          j:=r;
23          x:=tr[(l+r) div 2].c1;
24          repeat
25            while tr[i].c1<x do
26             inc(i);
27            while x<tr[j].c1 do
28             dec(j);
29            if not(i>j) then
30              begin
31                 y:=tr[i];
32                 tr[i]:=tr[j];
33                 tr[j]:=y;
34                 inc(i);
35                 j:=j-1;
36              end;
37          until i>j;
38          if l<j then
39            sort1(l,j);
40          if i<r then
41            sort1(i,r);
42       end;
43       procedure sort2(l,r: longint);
44       var
45          i,j,x: longint;
46          y:tre;
47       begin
48          i:=l;
49          j:=r;
50          x:=tr[(l+r) div 2].c2;
51          repeat
52            while tr[i].c2<x do
53             inc(i);
54            while x<tr[j].c2 do
55             dec(j);
56            if not(i>j) then
57              begin
58                 y:=tr[i];
59                 tr[i]:=tr[j];
60                 tr[j]:=y;
61                 inc(i);
62                 j:=j-1;
63              end;
64          until i>j;
65          if l<j then
66            sort2(l,j);
67          if i<r then
68            sort2(i,r);
69       end;
70 begin
71     read(n,k,m);
72     for i:=1 to n do ro[i]:=i;
73     for i:=1 to m do
74     begin
75         read(tr[i].l,tr[i].r,tr[i].c1,tr[i].c2);
76     end;
77     sort1(1,m);
78     sum:=0;
79     for i:=1 to m do
80     begin
81         if root(tr[i].l)<>root(tr[i].r) then
82         begin
83             inc(sum);
84             ro[root(tr[i].l)]:=root(tr[i].r);
85             if max<tr[i].c1 then max:=tr[i].c1;
86             if sum=k then break;
87         end;
88     end;
89     sort2(1,m);
90     for i:=1 to m do
91     begin
92         if root(tr[i].l)<>root(tr[i].r) then
93         begin
94             ro[root(tr[i].l)]:=root(tr[i].r);
95             if max<tr[i].c2 then max:=tr[i].c2;
96         end;
97     end;
98     writeln(max);
99 end.