/ Vijos / 讨论 / 问答 /

如果管理员帮我解决这个小问题,我相信他会一生平安的、

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 条评论

  • @ 2012-08-11 13:59:02

    Orz

    求问是怎么复制了源代码还没被系统封号一天的,

    顺便求问是怎么拿到vijos数据的

  • @ 2012-08-10 15:44:00

    1049451037

    哈哈,敢说复制的也不怕管理员把你封了

  • @ 2012-08-10 13:58:00

    这题数据有问题

    。。 复制了一下题解中AC的代码,手测通过。 提交仍然错误。

  • 1