PPT1 例2

题意/Description：

    桌子上零散地放着若干个不同颜色的盒子，桌子的后方是一堵墙。如右图所示。问从桌子前方可以看到多少个盒子？假设人站得足够远(自己设计测试数据,输入时,由底向上,从左到右)。

读入/Input：

（不详）

16  //桌子长度

5   // 盒子数量

4 7

12 14

1 5

6 10

11 16

输出/Output：

  可以看到多少个盒子。（4）

题解/solution：

    使用一个数组F，初始化为0。遍历线段树，对于每种颜色c对F[c]赋值1。最后统计F中1的个数即可。（注意颜色0应该排除在外，可以在最后减1）

代码/Code：

type  arr=record        cover:longint;      end;var  tree:array[0..2001] of arr;  n,m,ans:longint;  f:array[0..2001] of integer;procedure ins(p,l,r,a,b,c:longint);var  m:longint;begin  with tree[p] do    begin      if cover<>c then        begin          m:=(l+r) div 2;          if (a=l) and (b=r) then cover:=c else            begin              if cover>=0 then                begin                  tree[p*2].cover:=cover;                  tree[p*2+1].cover:=cover;                  cover:=-1;                end;          if b<=m then ins(p*2,l,m,a,b,c) else            if a>=m then ins(p*2+1,m,r,a,b,c) else              begin                ins(p*2,l,m,a,m,c);                ins(p*2+1,m,r,m,b,c);              end;            end;        end;    end;end;procedure count(p,l,r:longint);var  m:longint;begin  m:=(l+r) div 2;  with tree[p] do    begin      if cover>=0 then f[cover]:=1 else        if r-l>1 then          begin            count(p*2,l,m);            count(p*2+1,m,r);          end;    end;end;procedure main;var  a,b,i:longint;begin  fillchar(tree,sizeof(tree),255);  readln(m);  readln(n);  for i:=1 to n do    begin      readln(a,b);      ins(1,1,m,a,b,i);    end;end;procedure print;var  i:longint;begin  count(1,1,m);  for i:=0 to m do    if f[i]=1 then inc(ans);  writeln(ans);end;begin  main;  print;end.