【SDOI2015】bzoj3991 寻宝游戏

Description

小B最近正在玩一个寻宝游戏，这个游戏的地图中有N个村庄和N-1条道路，并且任何两个村庄之间有且仅有一条路径可达。游戏开始时，玩家可以任意选择一个村庄，瞬间转移到这个村庄，然后可以任意在地图的道路上行走，若走到某个村庄中有宝物，则视为找到该村庄内的宝物，直到找到所有宝物并返回到最初转移到的村庄为止。小B希望评测一下这个游戏的难度，因此他需要知道玩家找到所有宝物需要行走的最短路程。但是这个游戏中宝物经常变化，有时某个村庄中会突然出现宝物，有时某个村庄内的宝物会突然消失，因此小B需要不断地更新数据，但是小B太懒了，不愿意自己计算，因此他向你求助。为了简化问题，我们认为最开始时所有村庄内均没有宝物

Input

第一行，两个整数N、M，其中M为宝物的变动次数。 接下来的N-1行，每行三个整数x、y、z，表示村庄x、y之间有一条长度为z的道路。
接下来的M行，每行一个整数t，表示一个宝物变动的操作。若该操作前村庄t内没有宝物，则操作后村庄内有宝物；若该操作前村庄t内有宝物，则操作后村庄内没有宝物。
Output

M行，每行一个整数，其中第i行的整数表示第i次操作之后玩家找到所有宝物需要行走的最短路程。若只有一个村庄内有宝物，或者所有村庄内都没有宝物，则输出0。

首先考虑静态问题怎么做，可以按照dfs序维护，答案就是所有点到根的路径和减去相邻两点LCA到根的路径和，再减掉所有点的LCA【其实就是第一个和最后一个的LCA】到根的路径。
还是需要维护虚树，不过每次只会插入删除一个点。可以方便地用set维护，复杂度$O((n+m)\log n)$。

#include<cstdio>
#include<cstring>
#include<vector>
#include<algorithm>
#include<set>
using namespace std;
#define LL long long
const int maxn=100010,oo=0x3f3f3f3f;
int rd()
{
    int x=0;
    char c=getchar();
    while (c<'0'||c>'9') c=getchar();
    while (c>='0'&&c<='9')
    {
        x=x*10+c-'0';
        c=getchar();
    }
    return x;
}
int fir[maxn],ne[2*maxn],to[2*maxn],w[2*maxn],dep[maxn],
mn[2*maxn][22],log[2*maxn],pos[maxn],mark[maxn],
n,q,clo;
LL ans,dis[maxn];
struct cmpp
{
    bool operator () (const int &a,const int &b)
    {
        return pos[a]<pos[b];
    }
};
set<int,cmpp> s;
set<int,cmpp>::iterator i1,i2,i3;
int cmpd(int u,int v)
{
    return dep[u]<dep[v];
}
void add(int num,int u,int v,int x)
{
    ne[num]=fir[u];
    fir[u]=num;
    to[num]=v;
    w[num]=x;
}
void dfs(int u,int fa)
{
    int v;
    mn[pos[u]=++clo][0]=u;
    for (int i=fir[u];i;i=ne[i])
        if ((v=to[i])!=fa)
        {
            dep[v]=dep[u]+1;
            dis[v]=dis[u]+w[i];
            dfs(v,u);
            mn[++clo][0]=u;
        }
}
void init()
{
    int u,v,x;
    n=rd();
    q=rd();
    for (int i=1;i<n;i++)
    {
        u=rd();
        v=rd();
        x=rd();
        add(i<<1,u,v,x);
        add(i<<1|1,v,u,x);
    }
    dep[1]=1;
    dfs(1,-1);
    for (int k=1;(1<<k)<=clo;k++) log[1<<k]=k;
    for (int i=3;i<=clo;i++)
        if (!log[i]) log[i]=log[i-1];
    for (int k=1;(1<<k)<=clo;k++)
        for (int i=1;i+(1<<k)-1<=clo;i++)
            mn[i][k]=min(mn[i][k-1],mn[i+(1<<k-1)][k-1],cmpd);
}
int lca(int u,int v)
{
    int x=pos[u],y=pos[v];
    if (x>y) swap(x,y);
    int k=log[y-x+1];
    return min(mn[x][k],mn[y-(1<<k)+1][k],cmpd);
}
void erase(int u)
{
    i1=i2=i3=s.lower_bound(u);
    int flag1=0,flag2=0;
    if (i1!=s.begin())
    {
        flag1=1;
        i2--;
    }
    i3++;
    if (i3!=s.end()) flag2=1;
    if (flag1) ans+=dis[lca(*i1,*i2)];
    if (flag2) ans+=dis[lca(*i1,*i3)];
    if (flag1&&flag2) ans-=dis[lca(*i2,*i3)];
    ans-=dis[u];
    if (s.size()) ans+=dis[lca(*s.begin(),*(--s.end()))];
    s.erase(i1);
    if (s.size()) ans-=dis[lca(*s.begin(),*(--s.end()))];
}
void insert(int u)
{
    i1=i2=s.lower_bound(u);
    int flag1=0,flag2=0;
    if (i1!=s.begin())
    {
        flag1=1;
        i1--;
    }
    if (i2!=s.end()) flag2=1;
    if (flag1) ans-=dis[lca(*i1,u)];
    if (flag2) ans-=dis[lca(*i2,u)];
    if (flag1&&flag2) ans+=dis[lca(*i1,*i2)];
    ans+=dis[u];
    if (s.size()) ans+=dis[lca(*s.begin(),*(--s.end()))];
    s.insert(u);
    if (s.size()) ans-=dis[lca(*s.begin(),*(--s.end()))];
}
int main()
{
    int u;
    init();
    while (q--)
    {
        u=rd();
        if (mark[u])
        {
            mark[u]=0;
            erase(u);
        }
        else
        {
            mark[u]=1;
            insert(u);
        }
        printf("%lld\n",ans*2);
    }
}