HNOI2010弹飞绵羊

不得不说块状数组好神奇的啊！这道题的标签可是splay的启发是合并(什么高大上的东西），竟然这么轻松的就解决了！

var x,y,i,j,tot,n,m,ch:longint;
    f,k,l,bl,go:array[..] of longint;
procedure init;
 begin
 readln(n);
 x:=trunc(sqrt(n));j:=x;
 for i:= to n do
  begin
  if j=x then begin j:=;inc(tot);l[tot]:=i;end
  else inc(j);
  read(k[i]);
  bl[i]:=tot;
  end;
 l[tot+]:=n+;
 for i:=n downto  do
  if i+k[i]>=l[bl[i]+] then begin f[i]:=;go[i]:=i+k[i];end
  else begin f[i]:=f[i+k[i]]+;go[i]:=go[i+k[i]];end;
 end;
function ask(x:longint):longint;
 var sum:longint;
 begin
 sum:=;
 while x<=n do begin inc(sum,f[x]);x:=go[x];end;
 exit(sum);
 end;
procedure replace(x,y:longint);
 var  i:longint;
 begin
 k[x]:=y;
 for i:=x downto l[bl[x]] do
  if i+k[i]>=l[bl[i]+] then begin f[i]:=;go[i]:=i+k[i];end
  else begin f[i]:=f[i+k[i]]+;go[i]:=go[i+k[i]];end;
 end;
procedure main;
 begin
 readln(m);
 for i:= to m do
  begin
  read(ch);
  if ch= then
   begin
   readln(x);inc(x);
   writeln(ask(x));
   end
  else
   begin
   readln(x,y);inc(x);
   replace(x,y);
   end;
  end;
 end;
begin
 init;
 main;
end.