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.