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[0..200500]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)>>1];
  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:=0;
  while x>0 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 1 do
  begin
    read(a[i]);
    c[i]:=i;
    adde(i,1);
  end;
  for i:=n+1 to p do
  begin
    read(a[i]);
    c[i]:=i;
    adde(i,1);
  end;
  qs(1,p);
  if c[1]>n then x:=n+1 else x:=n;
  ans:=0;
  for i:=1 to p do
  begin
    adde(c[i],-1);
    if c[i]>x then ans:=ans+sum(c[i])-sum(x-1) else
                   ans:=ans+sum(x)-sum(c[i]-1);
    x:=c[i];
  end;
  writeln(ans);
end.