【CF56E】Domino Principle（线性扫描，伪DP）

每块多米诺骨牌所在的位置设为x，每块多米诺骨牌高度为h。如果将x位置上的多米诺骨牌向右翻到，它就可以影响[x+1, x+h-1]范围内的所有多米诺骨牌，让他们也翻到，同时这些被翻到的多米诺骨牌还能影响到其他多米诺骨牌，现在BSNY给出n块多米诺骨牌的位置和高度，问如果向右翻到第i块多米诺骨牌，会有多少多米诺骨牌翻到。

 按左端点排序，然后线性扫描。其实二分也可以，但答案有部分的重叠，即单调性。

var x,h,d,c,ans:array[1..200000]of longint;
    n,i,k,last:longint;
 
procedure swap(var x,y:longint);
var t:longint;
begin
 t:=x; x:=y; y:=t;
end;
 
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
 i:=l; j:=r; mid:=x[(l+r)>>1];
 repeat
  while mid>x[i] do inc(i);
  while mid<x[j] do dec(j);
  if i<=j then
  begin
   swap(x[i],x[j]);
   swap(h[i],h[j]);
   swap(c[i],c[j]);
   swap(d[i],d[j]);
   inc(i); dec(j);
  end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;
 
begin
  
 readln(n);
 for i:=1 to n do
 begin
  readln(x[i],h[i]);
  d[i]:=x[i]+h[i]-1;
  c[i]:=i;
 end;
 qsort(1,n);
 ans[c[n]]:=1;
 for i:=n-1 downto 1 do
 begin
  last:=d[i];
  k:=i+1;
  ans[c[i]]:=1;
  while true do
  begin
   if k>n then break;
   if x[k]<=last then ans[c[i]]:=ans[c[i]]+ans[c[k]]
    else break;
   k:=k+ans[c[k]];
  end;
 end;
 for i:=1 to n-1 do write(ans[i],' ');
 writeln(ans[n]);
 
end.