SSL P2644 线段树练习题一

题目大意：
一个N长度的桌面上有M个箱子，给出每个箱子所占的宽度最左端，最右端[l,r]，从桌子的前方射来一束平行光， 把盒子的影子投射到了墙上。求影子的总宽度。

数据范围
1<=n<=100000,1<=m<=100000
1<=l<=r<=n

题解：
线段树：
1.建一个线段树，如果[a,b]区间在[l,r]区间内，并且[l,r]区间已经被覆盖过的，就不用找了，不然就找，如果[a,b]在[l,mid]跟[mid,r]中就同时找2边，不然判断它在的其中一边，并且更新。
2.递归求解，如果找到的[l,r]已经被覆盖过就不用在二分这个区间了，答案累加(r-l)，或者直到区间[l,r],r-l=1就不找了。

var
      tree:array [0..300000] of longint;
      ans,i,n,m,a,b:longint;

procedure insert(p,l,r,a,b:longint);
var
      mid:longint;
begin
      mid:=(l+r) div 2;
      if tree[p]=1 then exit;
      if (a=l) and (b=r)
         then tree[p]:=1
         else if b<=mid then insert(p*2,l,mid,a,b)
                        else if a>=mid then insert(p*2+1,mid,r,a,b)
                                       else begin
                                                 insert(p * 2,l,mid,a,mid);
                                                 insert(p*2+1,mid,r,mid,b);
                                            end;
end;

procedure count(p,l,r:longint);
var
      mid:longint;
begin
      mid:=(l+r) div 2;
      if tree[p]=1 then
         begin
               ans:=ans+(r-l);
               exit;
         end;
      if r-l>1 then
         begin
              count(p * 2,l,mid);
              count(p*2+1,mid,r);
         end;
end;

begin
      readln(n);
      readln(m);
      for i:=1 to m do
      begin
            readln(a,b);
            insert(1,1,n,a,b);
      end;
      ans:=0;
      count(1,1,n);
      writeln(ans);
end.