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.