- 问答
- 2012-08-11 21:34:30 @
program p1234;
var d,q,h,i,j,n,m,k,tot:longint;
x,y,l:array[1..10000] of integer;
f:array[1..1000] of integer;
procedure qsort(i,j:integer);
var z,q,h,mid:longint;
begin
q:=i;
h:=j;
mid:=l[(i+j) div 2];
repeat
while l[q]mid do dec(h);
if qh ;
if qi then qsort(i,h);
end;
function find(x:integer):integer;
begin
if x=f[x] then exit(f[x])
else f[x]:=find(f[x]);
exit(f[x]);
end;
begin
readln(n,m,k);
for i:=1 to m do readln(x[i],y[i],l[i]);
qsort(1,m);
for i:=1 to n do f[i]:=i;
tot:=0;
d:=0;
for i:=1 to m do
begin
q:=find(x[i]);
h:=find(y[i]);
if qh then
begin
f[q]:=h;
inc(d);
tot:=tot+l[i];
end;
if n-d=k then break;
end;
if n-d=k then writeln(tot) else writeln('No Answer');
end.
p1234 为什么我用VIJOS的数据手动测试都对 ,提交测评都错呢 = =
小的不胜感激、
3 条评论
-
lk LV 9 @ 2012-08-11 13:59:02
Orz
求问是怎么复制了源代码还没被系统封号一天的,
顺便求问是怎么拿到vijos数据的 -
2012-08-10 15:44:00@
1049451037
哈哈,敢说复制的也不怕管理员把你封了
-
2012-08-10 13:58:00@
这题数据有问题
。。 复制了一下题解中AC的代码,手测通过。 提交仍然错误。
- 1