17.8.19B组总结

17.8.19B组总结

倒数第二天了，可没想到遇到了一道大难题（详细看T2），貌似要用什么LCT，莫队之类的，弄得我只好先写总结……

T1

可以说是一道水题了直接把合并果子之类的co一下就好了，用堆维护出最小值与次小值，组成新数，加入堆，再加上答案就好了。
具体实现：

var
        n,i,tot:longint;
        ans,g,c,g1,c1,m:extended;
        tt:array[1..2]of extended;
        d:array[0..200000,1..2]of extended;
procedure up(x:longint);
begin
        while (x<>1)and(d[x,1]<d[x div 2,1]) do
        begin
                tt:=d[x];
                d[x]:=d[x div 2];
                d[x div 2]:=tt;
                x:=x div 2;
        end;
end;
procedure down(x:longint);
var
        y:longint;
begin
        while ((x*2<=tot)and(d[x*2,1]<d[x,1]))or((x*2+1<=tot)and(d[x*2+1,1]<d[x,1])) do
        begin
                y:=x*2;
                if (y+1<=tot)and(d[y+1,1]<d[y,1]) then
                        inc(y);
                tt:=d[y];
                d[y]:=d[x];
                d[x]:=tt;
        end;
end;
begin
        readln(n,m);
        for i:=1 to n do
        begin
                readln(g);
                inc(tot);
                d[tot,1]:=g/m;
                d[tot,2]:=1;
                up(tot);
        end;
        for i:=1 to n-1 do
        begin
                g:=d[1,1];
                c:=d[1,2];
                d[1]:=d[tot];
                dec(tot);
                down(1);
                g1:=d[1,1];
                c1:=d[1,2];
                d[1]:=d[tot];
                dec(tot);
                down(1);
                inc(tot);
                d[tot,1]:=g1+g;
                d[tot,2]:=c1+c;
                ans:=ans+d[tot,1];
                up(tot);
        end;
        writeln(ans:0:6);
end.

T2

乍一看跟之前（没换题前）的第三题很像，但仔细一看，数据差了可不止一点半点。
考试由于我手贱，打错了两个变量，暴力分20没了。正解好像是什么LCA之类的神（sha）犇（bi）算法初一大部分神犇都弃了。。。

T3

不要觉得题目很难，这题说来说去也就是最大生成树，将总的篱笆长度减去树上的长度就好了。

var
        f:array[0..20000]of longint;
        a:array[0..50000,1..2]of longint;
        g:array[0..50000]of extended;
        b:array[0..100,0..100]of longint;
        n,m,c,i,o,q,j,tot,u,v,xx,yy:longint;
        x,y:array[0..20000]of extended;
        ans,sum:extended;
function get(s:longint):longint;
begin
        if f[s]=0 then
                exit(s);
        f[s]:=get(f[s]);
        exit(f[s]);
end;
procedure kp(x,y:longint);
var
        i,j:longint;
        mid:extended;
begin
        i:=x;
        j:=y;
        mid:=g[x];
        repeat
                while g[j]<mid do dec(j);
                while g[i]>mid do inc(i);
                if j>=i then
                begin
                        a[0]:=a[j];
                        a[j]:=a[i];
                        a[i]:=a[0];
                        g[0]:=g[j];
                        g[j]:=g[i];
                        g[i]:=g[0];
                        inc(i);
                        dec(j);
                end;

        until i>j;
        if j>x then kp(x,j);
        if i<y then kp(i,y);
end;
function abs(xxx:extended):extended;
begin
        if xxx<0 then
                exit(-xxx);
        exit(xxx);
end;
function dis(x1,y1,x2,y2:extended):extended;
begin
        if x1=x2 then
                exit(abs(y1-y2));
        if y1=y2 then
                exit(abs(x1-x2));
        exit(sqrt(sqr(x1-x2)+sqr(y1-y2)));
end;
begin
        readln(n,m);
        for i:=1 to n do
                readln(x[i],y[i]);
        for i:=1 to m do
        begin
                readln(u,v);
                a[i,1]:=u;
                a[i,2]:=v;
                g[i]:=dis(x[u],y[u],x[v],y[v]);
                sum:=sum+g[i];
        end;
        kp(1,m);
        tot:=0;
        for i:=1 to m do
        begin
                xx:=get(a[i,1]);
                yy:=get(a[i,2]);
                if xx<>yy then
                begin
                        f[xx]:=yy;
                        ans:=ans+g[i];
                        inc(tot);
                        if tot>=n-1 then
                                break;
                end;
        end;
        writeln((sum-ans):0:9);
end.