【平衡树·水】BZOJ1208HNOI2004宠物收养所

Description

最近，阿Q开了一间宠物收养所。收养所提供两种服务：收养被主人遗弃的宠物和让新的主人领养这些宠物。每个领养者都希望领养到自己满意的宠物，阿Q根据领养者的要求通过他自己发明的一个特殊的公式，得出该领养者希望领养的宠物的特点值a（a是一个正整数，a<2^31），而他也给每个处在收养所的宠物一个特点值。这样他就能够很方便的处理整个领养宠物的过程了，宠物收养所总是会有两种情况发生：被遗弃的宠物过多或者是想要收养宠物的人太多，而宠物太少。 1． 被遗弃的宠物过多时，假若到来一个领养者，这个领养者希望领养的宠物的特点值为a，那么它将会领养一只目前未被领养的宠物中特点值最接近a的一只宠物。（任何两只宠物的特点值都不可能是相同的，任何两个领养者的希望领养宠物的特点值也不可能是一样的）如果有两只满足要求的宠物，即存在两只宠物他们的特点值分别为a-b和a+b，那么领养者将会领养特点值为a-b的那只宠物。 2． 收养宠物的人过多，假若到来一只被收养的宠物，那么哪个领养者能够领养它呢？能够领养它的领养者，是那个希望被领养宠物的特点值最接近该宠物特点值的领养者，如果该宠物的特点值为a，存在两个领养者他们希望领养宠物的特点值分别为a-b和a+b，那么特点值为a-b的那个领养者将成功领养该宠物。 一个领养者领养了一个特点值为a的宠物，而它本身希望领养的宠物的特点值为b，那么这个领养者的不满意程度为abs(a-b)。【任务描述】你得到了一年当中，领养者和被收养宠物到来收养所的情况，希望你计算所有收养了宠物的领养者的不满意程度的总和。这一年初始时，收养所里面既没有宠物，也没有领养者。

Input

第一行为一个正整数n，n<=80000，表示一年当中来到收养所的宠物和领养者的总数。接下来的n行，按到来时间的先后顺序描述了一年当中来到收养所的宠物和领养者的情况。每行有两个正整数a, b，其中a=0表示宠物，a=1表示领养者，b表示宠物的特点值或是领养者希望领养宠物的特点值。（同一时间呆在收养所中的，要么全是宠物，要么全是领养者，这些宠物和领养者的个数不会超过10000个）

Output

仅有一个正整数，表示一年当中所有收养了宠物的领养者的不满意程度的总和mod 1000000以后的结果。

Sample Input

5
0 2
0 4
1 3
1 2
1 5

Sample Output

3

(abs(3-2) + abs(2-4)=3，最后一个领养者没有宠物可以领养)

裸平衡树。数组开小了各种炸炸炸炸炸。。。直到最后一怒之下从20000开到了10W才过。（说好的同一时间不会超过1W呢！！！！）

#include<iostream>
#include<cstring>
#include<cstdio>
#include<cmath>
#include<cstdlib>
#include<algorithm>
#define P 1000000
#define MAXINT 100000000000
using namespace std;
struct sbt
{
    int left,right,data,size;
}tree[100001];
long long ans;
int n;
int key;
int top;
int root;
int flag;
int pet,human;
void left_rot(int &x)
{
    int y=tree[x].right;
    tree[x].right=tree[y].left;
    tree[y].left=x;
    tree[y].size=tree[x].size;
    tree[x].size=tree[tree[x].left].size+tree[tree[x].right].size+1;
    x=y;
}
void right_rot(int &x)
{
    int y=tree[x].left;
    tree[x].left=tree[y].right;
    tree[y].right=x;
    tree[y].size=tree[x].size;
    tree[x].size=tree[tree[x].left].size+tree[tree[x].right].size+1;
    x=y;
}
void maintain(int &x,bool flag)
{
    if (!flag)
    {
        if (tree[tree[tree[x].left].left].size>tree[tree[x].right].size)
        {
            right_rot(x);
        }
        else
        if (tree[tree[tree[x].left].right].size>tree[tree[x].right].size)
        {
            left_rot(tree[x].left);
            right_rot(x);
        }
        else
        return;
    }
    else
    {
        if (tree[tree[tree[x].right].right].size>tree[tree[x].left].size)
        {
            left_rot(x);
        }
        else
        if (tree[tree[tree[x].right].left].size>tree[tree[x].left].size)
        {
            right_rot(tree[x].right);
            left_rot(x);
        }
        else
        return;
    }
    maintain(tree[x].left,0);
    maintain(tree[x].right,1);
    maintain(x,1);
    maintain(x,0);
}
void insert(int &x,int data)
{
    if (x==0)
    {
        x=++top;
        tree[x].left=tree[x].right=0;
        tree[x].size=1;
        tree[x].data=data;
    }
    else
    {
        tree[x].size++;
        if (data<tree[x].data) insert(tree[x].left,data);
        else insert(tree[x].right,data);
        maintain(x,data>=tree[x].data);
    }
}
int prev(int x,int y,int data)
{
    if (x==0) return y;
    if (tree[x].data==data) return y;
    if (tree[x].data<data) return prev(tree[x].right,x,data);
    else return prev(tree[x].left,y,data);
}
int succ(int x,int y,int data)
{
    if (x==0) return y;
    if (tree[x].data==data) return x;
    if (tree[x].data>data) return succ(tree[x].left,x,data);
    else return succ(tree[x].right,y,data);
}
/*int remove(int &x,int data)
{
    tree[x].size--;
    if (data>tree[x].data)
        remove(tree[x].right,data);
    else
    if (data<tree[x].data)
        remove(tree[x].left,data);
    else
    {
        if (tree[x].left!=0&&tree[x].right==0)
        {
            int ret=x;
            x=tree[x].left;
            return ret;
        }
        else
        if (tree[x].left==0&&tree[x].right!=0)
        {
            int ret=x;
            x=tree[x].right;
            return ret;
        }
        else
        if (!tree[x].left&&!tree[x].right)
        {
            int ret=x;
            x=0;
            return ret;
        }
        else
        {
            int ret=tree[x].right;
            while (tree[ret].left) ret=tree[ret].left;
            tree[x].data=tree[ret].data;
            remove(tree[x].right,tree[ret].data);
        }
    }
}*/
int remove(int &x,int data)
{
    if(!x)return 0;
    tree[x].size--;
    if(data==tree[x].data||(data<tree[x].data&&tree[x].left==0)||(data>tree[x].data&&tree[x].right==0))
    {
        if(tree[x].left&&tree[x].right)
        {
            int p=remove(tree[x].left,data+1);
            tree[x].data=tree[p].data;
            return p;
        }
        else
        {
            int p=x;
            x=tree[x].left+tree[x].right;
            return p;
        }
    }
    else
    return remove(data<tree[x].data?tree[x].left:tree[x].right,data);
}
int main()
{
    //freopen("pet.in","r",stdin);
    //freopen("pet.out","w",stdout);
    scanf("%d",&n);
    for (int i=1;i<=n;i++)
    {
        scanf("%d",&flag);
        scanf("%d",&key);
        if (flag==1)
        {
            if (i==1)
                insert(root,key),human++;
            else
            if (!pet) insert(root,key),human++;
            else
            if (pet)
            {
                int t1,t2;
                long long d1,d2;
                long long a1,a2;
                t1=prev(root,0,key);
                t2=succ(root,0,key);
                if (t1||t2)
                {
                    d1=tree[t1].data;
                    d2=tree[t2].data;
                    if (t1==0) d1=MAXINT;
                    if (t2==0) d2=MAXINT;
                    //if (!t1&&!t2) continue;
                    a1=abs(key-d1);
                    a2=abs(key-d2);
                    if (a1==a2)
                    {
                        if (d1<d2)
                        {
                            ans=(ans+a1)%P;
                            remove(root,d1);
                            pet--;
                        }
                        else
                        if (d1>d2)
                        {
                            ans=(ans+a2)%P;
                            remove(root,d2);
                            pet--;
                        }
                    }
                    else
                    if (a1<a2)
                    {
                        ans=(ans+a1)%P;
                        remove(root,d1);
                        pet--;
                    }
                    else
                    if (a1>a2)
                    {
                        ans=(ans+a2)%P;
                        remove(root,d2);
                        pet--;
                    }
                }
            }
        }
        else
        {
            if (i==1)
                insert(root,key),pet++;
            else
            if (!human) insert(root,key),pet++;
            else
            if (human)
            {
                int t1,t2;
                long long d1,d2;
                long long a1,a2;
                t1=prev(root,0,key);
                t2=succ(root,0,key);
                if (t1||t2)
                {
                    d1=tree[t1].data;
                    d2=tree[t2].data;
                    if (t1==0) d1=MAXINT;
                    if (t2==0) d2=MAXINT;
                    //if (!t1&&!t2) continue;
                    a1=abs(key-d1);
                    a2=abs(key-d2);
                    if (a1==a2)
                    {
                        if (d1<d2)
                        {
                            ans=(ans+a1)%P;
                            remove(root,d1);
                            human--;
                        }
                        else
                        if (d1>d2)
                        {
                            ans=(ans+a2)%P;
                            remove(root,d2);
                            human--;
                        }
                    }
                    else
                    if (a1<a2)
                    {
                        ans=(ans+a1)%P;
                        remove(root,d1);
                        human--;
                    }
                    else
                    if (a1>a2)
                    {
                        ans=(ans+a2)%P;
                        remove(root,d2);
                        human--;
                    }
                }
            }
        }
    }
    cout<<ans;
}