开花 (Standard IO)

题意/Description:

       在遥远的火星上，上面的植物非常奇怪，都是长方形的，每个植物用三个数来描述：左边界L、右边界R以及高度H，如下图所示描述一个植物：L=2,R=5和H=4。

       每天都有一个新植物长出来，第一天的植物高度为1，后面每天长出的植物比前一天的高1。
　　当一个新植物长出来的时候，跟其他植物的水平线段相交处会长出一朵小花（前提是之前没有长出花朵），如果线段交于端点，是不会长花的。
　　下图为样例1的示意图：

       给出每天的植物的坐标，计算每天长出多少新花。

 

读入/Input：

       第一行包含一个整数N(1<=N<=100000)，表示天数。
　　接下来N行，每行两个整数L和R(1<=L<=R<=100000)，表示植物的左右边界。

 

输出/Output：

       输出每天长出新植物后增加新花的数量。

 

题解/solution：

就是个线段树。请看：

http://blog.csdn.net/a_loud_name/article/details/51910169

 

代码/Code：

 

type
  arr=record
    l,r,cover:longint;
  end;
var
  tree:array [0..800001] of arr;
  a:array [0..100001] of longint;
  n,ans:longint;
procedure cre(p,x,y:Longint);
var
  mid:longint;
begin
  with tree[p] do
    begin
      l:=x; r:=y;
      if y=x then exit;
      mid:=(x+y) div 2;
      cre(p*2,x,mid);
      cre(p*2+1,mid+1,y);
    end;
end;

procedure count(p,x,y:longint);
var
  mid:longint;
begin
  with tree[p] do
    begin
      ans:=ans+cover;
      mid:=(l+r) div 2;
      if (l=x) and (r=y) then exit;
      if y<=mid then count(p*2,x,y) else
        if x>=mid+1 then count(p*2+1,x,y) else
          begin
            count(p*2+1,x,mid);
            count(p*2+1,mid+1,y);
          end;
    end;
end;

procedure ins(p,x,y:longint);
var
  mid:longint;
begin
  with tree[p] do
    begin
      mid:=(l+r)div 2;
      if (x=l) and (y=r) then
        begin
          inc(cover);
          exit;
        end;
        if (y<=mid) then ins(p*2,x,y) else
          if (x>=mid+1) then ins(p*2+1,x,y) else
            begin
              ins(p*2,x,mid);
              ins(p*2+1,mid+1,y);
            end;
    end;
end;

procedure init;
var
  i,x,y,t,k:longint;
begin
  readln(n);
  cre(1,1,100001);
  for i:=1 to n do
    begin
      readln(x,y);
      ans:=0;
      count(1,x,x);
      t:=ans;
      count(1,y,y);
      k:=ans-t;
      writeln(ans-a[x]-a[y]);
      a[x]:=t+1;
      a[y]:=k+1;
      ins(1,x,y);
    end;
end;

begin
  init;
end.