开花 纪中 1435 线段树

Description

　　在遥远的火星上，上面的植物非常奇怪，都是长方形的，每个植物用三个数来描述：左边界L、右边界R以及高度H，如下图所示描述一个植物：L=2,R=5和H=4。
　　
　　每天都有一个新植物长出来，第一天的植物高度为1，后面每天长出的植物比前一天的高1。
　　当一个新植物长出来的时候，跟其他植物的水平线段相交处会长出一朵小花（前提是之前没有长出花朵），如果线段交于端点，是不会长花的。
　　下图为示意图：
　　

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

Input

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

Output

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

分析

一眼就知道这是一个线段树啊！！！
和这个模板很像——线段树
查询时查一个区间的端点[x,x]和[y,y]
一定要用格子线段树~~~

蜜汁链表线段树

type
  pnode=^tnode;
  tnode=record
    lc,rc:pnode;
    c:longint;
end;

var
  t:pnode;
  i,j,k:longint;
  x,y:longint;
  n,m:longint;
  ans:longint;
  a,b:array[1..100010] of longint;

procedure neww(var t:pnode);
begin
  if t=nil then
    begin
      new(t);
      t^.c:=0;
      t^.lc:=nil;
      t^.rc:=nil;
    end;
end;

procedure insert(var t:pnode; l,r,x,y:longint);
var
  i,j,k:longint;
  mid:longint;

begin
  with t^ do
    begin
      {if c=0 then
        begin     }
          mid:=(l+r) div 2;
          if (l=x) and (r=y)
            then
              begin
                c:=c+1;
                exit;
              end;
          if (l<=x) and (mid>=y)
            then
              begin
                neww(lc);
                insert(lc,l,mid,x,y);
                exit;
              end;
          if (mid<x) and (r>=y)
            then
              begin
                neww(rc);
                insert(rc,mid+1,r,x,y);
                exit;
              end;
          neww(lc);
          neww(rc);
          insert(lc,l,mid,x,mid);
          insert(rc,mid+1,r,mid+1,y);
      {  end; }
    end;
end;

procedure find(t:pnode;l,r:longint;x,y:longint);
var
  mid:longint;
begin
  if t=nil then exit;
  with t^ do
    begin
      {if c=0 then
        begin     }
          ans:=ans+c;
          mid:=(l+r) div 2;
          if (l<=x) and (mid>=y)
            then
              begin
                find(lc,l,mid,x,y);
                exit;
              end;
          if (mid<x) and (r>=y)
            then
              begin
                find(rc,mid+1,r,x,y);
                exit;
              end;
          find(lc,l,mid,x,mid);
          find(rc,mid+1,r,mid+1,y);
      {  end; }
    end;
end;

begin
  m:=100010;
  readln(n);
  fillchar(t,sizeof(t),0);
  neww(t);
  for i:=1 to n do
    begin
      readln(x,y);
      ans:=0;
      find(t,1,m,x,x);
      j:=ans;
      find(t,1,m,y,y);
      k:=ans-j;
      writeln(ans-a[x]-a[y]);
      a[x]:=j+1; a[y]:=k+1;
      insert(t,1,m,x,y);
    end;
end.