【NOIP2017练习】怎样打好隔膜（贪心，堆，带删除priority_queue）

题意：OI大师抖儿在夺得银牌之后，顺利保送pku。这一天，抖儿问长者：“我的手速虽然已经站在了人类的巅峰，但是打隔膜还是输。我换了很多队友，但是没有用。请问应该怎样打好隔膜？”
长者回答：“你啊，Too Young Too Simple,Sometimes Naive!不过你来看看这个游戏，或许对你有些帮助。”

这是一个类似星球大战的游戏。有n个星球排成一列，第i个星球和第i+1个星球存在一条耗时为1、可多次经过的航线。同时还存在m扇传送门，一扇由i到j的传送门可以瞬间将抖儿从第i个星球传送到第j个星球或从第j个星球传送到第i个星球，但是传送完毕后传送门会消失。此外，抖儿目前的资源可以额外建造不多于p扇传送门。

抖儿可以从任意一个星球出发，经过所有的航线和传送门至少一次，然后在任意一个星球结束。抖儿自然希望能在尽量短的时间内完成任务，请你帮忙计算答案。

对于所有的数据，保证n≤1e9，m≤100000，p≤100000

思路：LYY压轴题

 

pascal用堆实现带删除priority_queue

开两个堆，一个放被删除元素的堆，删除元素时将其复制放入

取堆顶时判断堆顶是否与删除堆的堆顶相同

因为此题元素有两个值，需要二次比较

写的神志模糊 转C保平安

type arr=record
          x:int64;
          y,t:longint;
         end;
 
var q1,q2:array[0..2000000]of arr;
    d,du,x,y:array[0..1100000]of longint;
    pre,next:array[0..1100000]of longint;
    a:array[0..1100000]of int64;
    n,m,i,t,t1,t2,up,cnt1,cnt2,p,tmp,p1,p2,k:longint;
    ans:int64;
 
procedure swap(var x,y:int64);
var t:int64;
begin
 t:=x; x:=y; y:=t;
end;
 
procedure qsort(l,r:longint);
var i,j,t,mid:longint;
begin
 i:=l; j:=r; mid:=d[(l+r)>>1];
 repeat
  while mid>d[i] do inc(i);
  while mid<d[j] do dec(j);
  if i<=j then
  begin
   t:=d[i]; d[i]:=d[j]; d[j]:=t;
   inc(i); dec(j);
  end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;
 
function hash(k:longint):longint;
var l,r,mid:longint;
begin
 l:=1; r:=up;
 while l<=r do
 begin
  mid:=(l+r)>>1;
  if d[mid]=k then exit(mid);
  if d[mid]<k then l:=mid+1
   else r:=mid-1;
 end;
end;
 
 
 
procedure ins(x:int64;y:longint);
var t1,t2,t,tmp,k:longint;
begin
 inc(cnt1);
 q1[cnt1].x:=x; q1[cnt1].y:=y;
 k:=cnt1;
 while (k>1)and((x<q1[k>>1].x)or(x=q1[k>>1].x)and(y<q1[k>>1].y)) do
 begin
  t:=k>>1;
  t1:=q1[k].y; t2:=q1[t].y;
  swap(q1[k].x,q1[t].x);
  tmp:=q1[k].y; q1[k].y:=q1[t].y; q1[t].y:=tmp;
  k:=k>>1;
 end;
end;
 
procedure del(x:int64;y:longint);
var t1,t2,t,tmp,k:longint;
begin
 inc(cnt2);
 q2[cnt2].x:=x; q2[cnt2].y:=y;
 k:=cnt2;
 while (k>1)and((x<q2[k>>1].x)or(x=q2[k>>1].x)and(y<q2[k>>1].y)) do
 begin
  t:=k>>1;
  t1:=q2[k].y; t2:=q2[t].y;
  swap(q2[k].x,q2[t].x);
  tmp:=q2[k].y; q2[k].y:=q2[t].y; q2[t].y:=tmp;
  k:=k>>1;
 end;
end;
 
begin
 
 readln(n,m,p);
 up:=2; d[1]:=1; d[2]:=n;
 for i:=1 to m do
 begin
  read(x[i],y[i]);
  inc(up); d[up]:=x[i];
  inc(up); d[up]:=y[i];
 end;
 qsort(1,up);
 t:=up; up:=1;
 for i:=2 to t do
  if d[i]<>d[up] then begin inc(up); d[up]:=d[i]; end;
 du[1]:=1; du[up]:=1;
 for i:=1 to m do
 begin
  x[i]:=hash(x[i]);
  y[i]:=hash(y[i]);
  du[x[i]]:=du[x[i]] xor 1;
  du[y[i]]:=du[y[i]] xor 1;
 end;
 
 tmp:=0; m:=0;
 for i:=1 to up do
  if du[i]=1 then
  begin
   if tmp>0 then begin inc(m); a[m]:=d[i]-d[tmp]; end;
   tmp:=i;
  end;
 
 
 for i:=1 to m do
 begin
  //writeln(a[i]);
  ins(a[i],i);
  pre[i]:=i-1;
  next[i]:=i+1;
 end;
 
 t:=(m-1) div 2-p;
 //writeln(t);
 for i:=1 to t do
 begin
  if cnt2>0 then
  begin
   t1:=1; t2:=1;
   while (q1[t1].x=q2[t2].x)and(q1[t1].y=q2[t2].y) do
   begin
    q1[t1].x:=1<<60;
    while t1<<1<=cnt1 do
    begin
     k:=t1<<1;
     if (k+1<=cnt1)and((q1[k+1].x<q1[k].x)or
                      ((q1[k+1].x=q1[k].x)and(q1[k+1].y<q1[k].y))) then inc(k);
     if q1[k].x<q1[t1].x then
     begin
      swap(q1[k].x,q1[t1].x);
      tmp:=q1[k].y; q1[k].y:=q1[t1].y; q1[t1].y:=tmp;
      t1:=k;
     end
      else break;
    end;
    q2[t2].x:=1<<60;
    while t2<<1<=cnt2 do
    begin
     k:=t2<<1;
     if (k+1<=cnt2)and((q2[k+1].x<q2[k].x)or
                      ((q2[k+1].x=q2[k].x)and(q2[k+1].y<q2[k].y))) then inc(k);
     if q2[k].x<q2[t2].x then
     begin
      swap(q2[k].x,q2[t2].x);
      tmp:=q2[k].y; q2[k].y:=q2[t2].y; q2[t2].y:=tmp;
      t2:=k;
     end
      else break;
    end;
    t1:=1; t2:=1;
   end;
  end;
  t2:=q1[1].y; t1:=q1[1].x;
  del(t1,t2);
  ans:=ans+t1;
  if pre[t2]=0 then
  begin
   p1:=next[t2];
  // writeln(p1);
   del(a[p1],p1);
   pre[next[next[t2]]]:=0;
   continue;
  end
   else if next[t2]>m then
   begin
    p1:=pre[t2];
   // writeln(p1);
    del(a[p1],p1);
    next[pre[pre[t2]]]:=m+1;
    continue;
   end;
  tmp:=t2;
  p1:=pre[tmp]; p2:=next[tmp];
 // writeln(p1,' ',p2);
  pre[tmp]:=pre[p1];
  next[tmp]:=next[p2];
  pre[next[tmp]]:=tmp;
  next[pre[tmp]]:=tmp;
  a[tmp]:=a[p1]+a[p2]-a[tmp];
  ins(a[tmp],tmp);
  del(a[p1],p1);
  del(a[p2],p2);
 end;
 
 writeln(ans+n-1);
 
end.

【后记】

抖儿深深沉迷于这个游戏不能自拔，日渐消瘦。

终于有一天，抖儿大彻大悟，说：“我知道了！玩游戏要的不仅仅是蛮力和手速，还需要智慧和策略。”

长者嘿嘿一笑：“你想多了。难道你还没发现你只适合玩单机游戏？”

抖儿恼羞成怒，便怂恿香港记者们造了一个大新闻，将长者批判了一番。