1208: [HNOI2004]宠物收养所
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 3620 Solved: 1364
[ Submit][ Status]
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
0 2
0 4
1 3
1 2
1 5
Sample Output
(abs(3-2) + abs(2-4)=3,最后一个领养者没有宠物可以领养)
HINT
Source
var n,ans,a,b,i,pre,suc,root,tot,min,typ:longint;
t:array[0..100001]of record
l,r,f,v:longint;
end;
procedure left(aa:longint);
var fa:longint;
begin
fa:=t[aa].f;
t[aa].f:=t[fa].f;
if t[t[fa].f].l=fa then t[t[fa].f].l:=aa;
if t[t[fa].f].r=fa then t[t[fa].f].r:=aa;
t[fa].f:=aa;
t[fa].r:=t[aa].l;
t[t[aa].l].f:=fa;
t[aa].l:=fa;
end;
procedure right(aa:longint);
var fa:longint;
begin
fa:=t[aa].f;
t[aa].f:=t[fa].f;
if t[t[fa].f].l=fa then t[t[fa].f].l:=aa;
if t[t[fa].f].r=fa then t[t[fa].f].r:=aa;
t[fa].f:=aa;
t[fa].l:=t[aa].r;
t[t[aa].r].f:=fa;
t[aa].r:=fa;
end;
procedure splay(now,goal:longint);
var fa:longint;
begin
while t[now].f<>goal do
begin
fa:=t[now].f;
if t[fa].f=goal then
begin
if t[fa].l=now then right(now) else left(now);
end
else
if t[t[fa].f].l=fa then
begin
if t[fa].l=now then
begin
right(fa);
right(now);
end
else
begin
left(now);
right(now);
end;
end
else
begin
if t[fa].r=now then
begin
left(fa);
left(now);
end
else
begin
right(now);
left(now);
end;
end;
end;
if goal=0 then root:=now;
end;
procedure find(x:longint);
var now:longint;
begin
now:=root;
repeat
if (t[now].v<=x) then pre:=now;
if (t[now].v>=x) then suc:=now;
if t[now].v=x then exit;
if x
until now=0;
end;
procedure insert(v:longint);
var now:longint;
begin
now:=root;
while true do
begin
if v<=t[now].v then
begin
if t[now].l<>0 then now:=t[now].l
else begin
inc(tot);
t[tot].f:=now;
t[tot].v:=v;
t[now].l:=tot;
splay(tot,0);
exit;
end;
end
else
if t[now].r<>0 then now:=t[now].r
else begin
inc(tot);
t[tot].f:=now;
t[tot].v:=v;
t[now].r:=tot;
splay(tot,0);
exit;
end;
end;
end;
procedure del(x:longint);
var l,r,new,rk:longint;
begin
splay(x,0);
l:=t[x].l;
r:=t[x].r;
if (l=0)and(r<>0) then
begin
root:=r;
t[r].f:=0;
exit;
end;
if (r=0)and(l<>0) then
begin
root:=l;
t[l].f:=0;
exit;
end;
if (r=0)and(l=0) then
begin
root:=0;
t[root].v:=0;
t[root].l:=0;
t[root].r:=0;
typ:=-1;
//tot:=0;不知道为什么加了这句就T了= =
exit;
end;
new:=0; rk:=l;
while (rk<>0) do
begin
new:=rk; rk:=t[rk].r;
end;
splay(new,root);
root:=t[root].l;
t[root].f:=0;
t[root].r:=t[x].r;
t[t[x].r].f:=root;
end;
begin
readln(n);
ans:=0;
tot:=0;
root:=0;
typ:=-1;
for i:=1 to n do
begin
readln(a,b);
if typ=-1 then typ:=a;
if a=typ then
begin
insert(b);
end
else
begin
pre:=0; suc:=0; min:=0;
find(b);
if suc=0 then min:=pre;
if pre=0 then min:=suc;
if (pre=0)and(suc=0) then
begin
typ:=a;
insert(b);
continue;
end; //这个地方没注意。。wa了很久
if (pre<>0)and(suc<>0) then
if abs(t[pre].v-b)<=abs(t[suc].v-b) then min:=pre else min:=suc;
ans:=(ans+abs(t[min].v-b))mod 1000000;
del(min);
end;
end;
writeln(ans);
end.