bzoj2957 楼房重建

Description

　　小A的楼房外有一大片施工工地，工地上有N栋待建的楼房。每天，这片工地上的房子拆了又建、建了又拆。他经常无聊地看着窗外发呆，数自己能够看到多少栋房子。
　　为了简化问题，我们考虑这些事件发生在一个二维平面上。小A在平面上(0,0)点的位置，第i栋楼房可以用一条连接(i,0)和(i,Hi)的线段表示，其中Hi为第i栋楼房的高度。如果这栋楼房上任何一个高度大于0的点与(0,0)的连线没有与之前的线段相交，那么这栋楼房就被认为是可见的。
　　施工队的建造总共进行了M天。初始时，所有楼房都还没有开始建造，它们的高度均为0。在第i天，建筑队将会将横坐标为Xi的房屋的高度变为Yi(高度可以比原来大---修建，也可以比原来小---拆除，甚至可以保持不变---建筑队这天什么事也没做)。请你帮小A数数每天在建筑队完工之后，他能看到多少栋楼房？

Input

　　第一行两个正整数N,M
　　接下来M行，每行两个正整数Xi,Yi

Output

　　M行，第i行一个整数表示第i天过后小A能看到的楼房有多少栋

Sample Input

3 4
2 4
3 6
1 1000000000
1 1

 

Sample Output

1
1
1
2

HINT

 数据约定
　　对于所有的数据1<=Xi<=N，1<=Yi<=10^9
N,M<=100000

Source

中国国家队清华集训 2012-2013 第一天

挺难的线段树，我看别人的博客的。

传送门：

黄学长的：http://hzwer.com/6746.html

还有一个：http://blog.csdn.net/cjk_cjk/article/details/46582147

代码倒不难写。

program rrr(input,output);
type
  treetype=record
     l,r,s:longint;
     max:double;
  end;
var
  a:array[0..400040]of treetype;
  n,m,i,x,y:longint;
function max(a,b:double):double;
begin
   if a>b then exit(a) else exit(b);
end;
procedure build(k,l,r:longint);
var
  mid:longint;
begin
   a[k].l:=l;a[k].r:=r;a[k].max:=0;a[k].s:=0;
   if l=r then exit;
   mid:=(l+r)>>1;
   build(k+k,l,mid);build(k+k+1,mid+1,r);
end;
function count(k:longint;x:double):longint;
var
  i:longint;
begin
   if a[k].l=a[k].r then begin if a[k].max>x then exit(1) else exit(0); end;
   i:=k+k;
   if a[i].max>x then exit(a[k].s-a[i].s+count(i,x))
   else exit(count(i+1,x));
end;
procedure change(k,x:longint;y:double);
var
  mid,i:longint;
begin
   if a[k].l=a[k].r then begin a[k].s:=1;a[k].max:=y;exit; end;
   mid:=(a[k].l+a[k].r)>>1;i:=k+k;
   if x<=mid then change(i,x,y) else change(i+1,x,y);
   a[k].max:=max(a[i].max,a[i+1].max);
   a[k].s:=a[i].s+count(i+1,a[i].max);
end;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(n,m);
   build(1,1,n);
   for i:=1 to m do
      begin
         readln(x,y);
         change(1,x,y/x);
         writeln(a[1].s);
      end;
   close(input);close(output);
end.