[bzoj1208] [HNOI2004]宠物收养所

本题考查的是数据结构，很基础的平衡树就可以解决，所以本题c++的同学可以用stl库开挂直接过的，而像我这种暂时不愿转c++的弱菜只好手写平衡树了。

这题用splay做的话难度不是很大，一些基本的操作就可以解决问题，但是在写代码的时候还是得需要足够的细心和耐心。值得注意的是怎样判断当前树里记录的是宠物还是主人。不难发现，树里记录的不管是宠物还是主人操作都是一样的，所以可以开一个变量记录当前树里记录的类型，当一棵树都取光时把变量重置即可。

最后删除时推荐用内存回收，还有不要忘记取余。

最后就是代码，求大神不鄙视

const
MMOD=1000000;
MAXN=80000;
type
date=record
ch:array[0..1]of longint;v,f:longint;
end;
var
n,i,root,top,tst,c,x,y,a,b,min,sum:longint;
st:array[0..MAXN+10]of longint;
t:array[0..MAXN+10]of date;
procedure newnode(var x:longint;f,k:longint);
begin
if(tst<>0)then begin x:=st[tst];dec(tst) end
else begin inc(top);x:=top end;
t[x].ch[0]:=0;t[x].ch[1]:=0;t[x].v:=k;t[x].f:=f;
end;
function cmp(x,k:longint):longint;
begin
if(t[x].ch[0]=k)then exit(0) else exit(1);
end;
procedure rotate(k,c:longint);
var i:longint;
begin
i:=t[k].f;
t[i].ch[c xor 1]:=t[k].ch[c];t[t[k].ch[c]].f:=i;t[k].ch[c]:=i;
t[k].f:=t[i].f;
if(t[i].f<>0)then t[t[i].f].ch[cmp(t[i].f,i)]:=k;
t[i].f:=k;
end;
procedure splay(k,goal:longint);
var x,y,f1,f2:longint;
begin
while(t[k].f<>goal)do
begin
x:=t[k].f;y:=t[x].f;
if(y=goal)then rotate(k,cmp(x,k)xor 1)
else begin
f1:=cmp(y,x);f2:=cmp(x,k);
if(f1=f2)then begin rotate(x,f1 xor 1);rotate(k,f1 xor 1) end
else begin rotate(k,f2 xor 1);rotate(k,f1 xor 1) end;
end;
end;
if(goal=0)then root:=k;
end;
procedure insert(k:longint);
var i,j,x:longint;
begin
i:=root;j:=0;
repeat
j:=i;
if(k<t[i].v)then i:=t[i].ch[0] else i:=t[i].ch[1];
until i=0;
if(k<t[j].v)then x:=0 else x:=1;
newnode(t[j].ch[x],j,k);
splay(t[j].ch[x],0);
end;
procedure find(k:longint);
var i:longint;
begin
i:=root;
repeat
if(t[i].v<=k)then a:=i;
if(t[i].v>=k)then b:=i;
if(t[i].v=k)then exit;
if(k<t[i].v)then i:=t[i].ch[0] else i:=t[i].ch[1];
until i=0;
end;
procedure del(k:longint);
var i,j:longint;
begin
splay(k,0);
inc(tst);st[tst]:=k;
if(t[k].ch[0]=0)then
begin
if(t[k].ch[1]=0)then
begin
c:=-1;root:=0;exit;
end;
root:=t[k].ch[1];t[t[k].ch[1]].f:=0;exit;
end
else begin
i:=t[k].ch[0];j:=0;
while(i<>0)do
begin
j:=i;i:=t[i].ch[1];
end;
splay(j,root);
root:=t[root].ch[0];
t[root].f:=0;t[root].ch[1]:=t[k].ch[1];t[t[k].ch[1]].f:=root;
end;
end;
begin
readln(n);
c:=-1;sum:=0;top:=0;root:=0;tst:=0;
for i:=1 to n do
begin
readln(x,y);
if(c=-1)then
begin
c:=x;newnode(root,0,y);
end
else if(c=x)then insert(y)
else if(c<>x)then
begin
a:=0;b:=0;min:=0;
find(y);
if(b=0)then min:=a;
if(a=0)then min:=b;
if(a<>0)and(b<>0)then
begin
if(abs(t[a].v-y)<=abs(t[b].v-y))then min:=a else min:=b;
end;
sum:=(sum+abs(t[min].v-y))mod MMOD;
del(min);
end;
end;
writeln(sum);
end.