2017.08.19【NOIP提高组】模拟赛B组总结

今天感觉无法AK，因为，有一道比较坑的第二题，说是什么莫队算法或者是用lct，我太弱了，又不会莫队，又不会树链剖分，也不会splay，那就只能先放着。总结一下吧。

第一题

题意不讲，感觉其实就是一个堆，跟那个合并果子十分相似，没有什么意义的水题。

第二题

大佬可以秒一秒这道题目：

Description

众所周知，Zjr506是算法之神，因此Ztxz16经常向他请教算法。这一天，Zjr506在教导了Ztxz16关于图论方面的一些算法后，给他出了一道图论题作为家庭作业：
给定N个点，M条无向边，Q个询问，每个询问给定L, R，问连上第L~R条边后，图中有多少联通块（询问之间互不影响）。
Ztxz16智商太低，百思不得其解，只好向你请教这个问题。

Input

第一行输入N M Q
接下来M行每行两个整数代表一条边
接下来Q行每行两个整数代表一个询问

Output

输出Q行，代表这个询问中联通块的个数

Sample Input

3 3 3
1 2
2 3
1 3
1 1
2 3
1 3

Sample Output

2
1
1

Data Constraint

20%的数据保证N, M, Q <= 1000
60%的数据保证N, M, Q <= 50000
100%的数据保证N, M, Q <= 200000, L <= R
反正我现在A不了。

第三题

给你一些点，然后他们之间有一些边，然后选择删掉一些边，使得剩下的边不能构成一个环，要求删去的边的总长度最小。
如果觉得我语文差的话，可以看原题，

Description

Zjr506很喜欢猫，某一天他突然心血来潮，想捕捉学校里活动的猫。
为了捕猫，Zjr506在校园中放置了N个木桩，当他见到有猫进入他的狩猎范围后，就会以迅雷不及掩耳的速度在一些木桩之间绕上藩篱以困住这些猫。
一段时间后，Zjr506在绕了M个藩篱后兴高采烈的离开了。作为正义的使者，Ztxz16不忍心看到这些猫受到折磨，于是决定拆除一些藩篱让所有的猫都逃出去。因为Zjr506的巧妙设计，藩篱不会在除木桩之外的地方相交。这些藩篱构成了一些封闭的区域，每一个区域中都有一只猫。
因为Zjr506制造这些藩篱也不容易，所以Ztxz16希望拆除的藩篱总长度尽量小，现在他希望你告诉他最小的总长度。

Input

第一行两个数 n,m （ 2<=n<=10000 ， 1<=m<=50000 ）
接下来 n 行 , 每行两个整数 xi,yi, 代表第 i 个木桩的坐标 ( − 10000 ≤ xi, yi ≤ 10000).
接下来 m 行，每行两个整数 pi,qi (1 ≤ pj, qj ≤ N) , 代表木桩 pi 与木桩 qi 之间有一个藩篱。

Output

输出一个实数代表答案，当答案与标准答案差的绝对值不超过0.001时认为它是正确的。

Sample Input

8 8
0 0
3 0
3 3
0 3
1 1
1 2
2 2
2 1
1 2
2 3
3 4
4 1
5 6
6 7
7 8
8 5

Sample Output

4.000000000

Data Constraint

对于20%的数据：
N , M <= 30
对于30%的数据：
N, M <= 300
对于100%的数据：
N <= 10000, M <= 50000
题解：随便搞一下最大生成树就好了，然后用并查集判断是否构成环，然后就没有了。

代码

t3：

var        father,x,y:array[1..10000] of longint;        a:array[0..50000] of extended;        p,q:array[0..50000] of longint;        n,m,i,f1,f2:longint;        ans:extended;function getfahter(x:longint):longint;begin        if (father[x]=0)or(father[x]=x) then                father[x]:=x        else                father[x]:=getfahter(father[x]);        exit(father[x]);end;procedure swap(var a,b:longint);var        t:longint;begin        t:=a;        a:=b;        b:=t;end;procedure swap1(var a,b:extended);var        t:extended;begin        t:=a;        a:=b;        b:=a;end;procedure qsort(x,y:longint);var        i,j:longint;        mid:extended;begin        i:=x;        j:=y;        mid:=a[(i+j)div 2];        repeat                while a[i]>mid do inc(i);                while a[j]<mid do dec(j);                if i<=j then                begin                        swap(p[i],p[j]);                        swap(q[i],q[j]);                        swap1(a[i],a[j]);                        inc(i);                        dec(j);                end;        until i>j;        if i<y then qsort(i,y);        if x<j then qsort(x,j);end;function euclid(i:longint):extended;begin        exit(sqrt(sqr(x[p[i]]-x[q[i]])+sqr(y[p[i]]-y[q[i]])));end;begin        readln(n,m);        for i:=1 to n do        begin                readln(x[i],y[i]);        end;        for i:=1 to m do        begin                readln(p[i],q[i]);                a[i]:=euclid(i);                write(a[i]:0:6,' ');                ans:=ans+a[i];        end;        writeln;        qsort(1,m);        for i:=1 to m do        begin                f1:=getfahter(p[i]);                f2:=getfahter(q[i]);                if f1<>f2 then                begin                        ans:=ans-a[i];                        father[f1]:=f2;                end;        end;        writeln(ans:0:9);end.

最后几句

感觉自己还是太傻，t3那么简单的题都没有想到，还是太弱了。

the end

由于我的水平有限，难免会有些写错的地方，希望大家批评指正，多多包容，thank you for your patience.