BZOJ 3192: [JLOI2013]删除物品 奇淫技巧&树状数组

点我看题

这题十分奇淫技巧...QAQ因为知道是树状数组的题QAQ刚开始以为维护两个数组的树状数组然后模拟从大到小，然后发现不会打QAQ

于是悄悄咪咪翻开题解了。

实际上两个数组可以看做一个数组

如　　1 4 5

2 7 3

实际上就是 5 4 1 | 2 7 3

“|”这个地方就是假设成一个指标，然后每次把这个指标移到某一个位置，这个位置左右两个边的数就可以删除。

所以就模拟从大到小删数。

第一次 5 4 1 2 | 7 3

指标移动1次就可以删掉“7”

第二次   5 | 4 1 2 3

指标移动3次就可以删掉“5”

第三次   |4 1 2 3

指标不需要移动就可以删除“4”

......

然后就把这些移动的次数加起来就是答案~\(≧▽≦)/~啦啦啦

把删掉的数的位置 置0 有数的位置 置1 然后树状数组维护一下就好了~

 var a,c,tree:array[..]of int64;
     i,n,m,p:longint;
     x,ans:int64;

 procedure qs(l,r:longint);
 var i,j:longint;
     m,t:int64;
 begin
   i:=l;
   j:=r;
   m:=a[(l+r)>>];
   repeat
     while a[i]>m do inc(i);
     while a[j]<m do dec(j);
     if i<=j then
     begin
       t:=a[i];a[i]:=a[j];a[j]:=t;
       t:=c[i];c[i]:=c[j];c[j]:=t;
       inc(i);
       dec(j);
     end;
   until i>j;
   if l<j then qs(l,j);
   if i<r then qs(i,r);
 end;
 function low(x:longint):longint;
 begin
   exit(x and -x);
 end;
 procedure adde(x,d:longint);
 begin
   while x<=p do
   begin
     inc(tree[x],d);
     inc(x,low(x));
   end;
 end;
 function sum(x:longint):int64;
 var s:int64;
 begin
   s:=;
   while x> do
   begin
     inc(s,tree[x]);
     dec(x,low(x));
   end;
   exit(s);
 end;
 begin
   read(n,m);
   p:=n+m;
   for i:=n downto  do
   begin
     read(a[i]);
     c[i]:=i;
     adde(i,);
   end;
   for i:=n+ to p do
   begin
     read(a[i]);
     c[i]:=i;
     adde(i,);
   end;
   qs(,p);
   if c[]>n then x:=n+ else x:=n;
   ans:=;
   for i:= to p do
   begin
     adde(c[i],-);
     if c[i]>x then ans:=ans+sum(c[i])-sum(x-) else
                    ans:=ans+sum(x)-sum(c[i]-);
     x:=c[i];
   end;
   writeln(ans);
 end.

BZOJ3192