bzoj1558

好题，初看以为只要差分然后维护相同的段数目
但是请注意下面的情况
2 3 5 8 9
 1 2 3 4 这显然答案是3而不是4
因此我们还要再维护ld，rd表示左右单独的段长度
和s表示不包括左右单独的段，中间部分最少划分成几个等差数列
具体维护见程序，比较复杂，但其实不难
这题还有一个坑爹的地方，我一开始忘开int64本地测数据竟然全能过
但是交上去就WA……感人肺腑

 type node=record
        l,r:int64;
        ld,rd,s:longint;
      end;

 var tree:array[..*] of node;
     lazy:array[..*] of int64;
     a:array[..] of longint;
     n,m,i,x0,y0,x,y,p,q:longint;
     z:int64;
     ans:node;
     ch:char;

 procedure update(var a:node;x,y:node);
   begin
     a.l:=x.l;
     a.r:=y.r;
     a.ld:=x.ld;
     if x.s= then  //x.s=说明左部分全是单独的（没有连续出现2个及以上的）
     begin
       if x.r<>y.l then inc(a.ld,y.ld)
       else dec(a.ld);
     end;
     a.rd:=y.rd;
     if y.s= then
     begin
       if x.r<>y.l then inc(a.rd,x.rd)
       else dec(a.rd);
     end;
     a.s:=x.s+y.s;
     if x.s= then   //以下请自行理解
     begin
       if x.r=y.l then
       begin
         if y.s= then inc(a.s)
         else if (y.ld>) then inc(a.s,(y.ld-) shr +);
       end;
     end
     else if x.rd> then
     begin
       if x.r=y.l then
       begin
         inc(a.s,(x.rd-) shr );
         if y.s= then inc(a.s)
         else if (y.ld>) then inc(a.s,(y.ld-) shr +);
       end
       else if y.s> then
         inc(a.s,(x.rd+y.ld) shr );
     end
     else begin
       if x.r=y.l then
       begin
         if (y.s>) and (y.ld>) then inc(a.s,(y.ld-) shr );
         if (y.s>) and (y.ld=) then dec(a.s);
       end
       else if (y.s>) and (y.ld>) then inc(a.s,y.ld shr );
     end;
   end;

 procedure push(i:longint);
   begin
     inc(lazy[i*],lazy[i]);
     inc(tree[i*].l,lazy[i]);
     inc(tree[i*].r,lazy[i]);
     inc(lazy[i*+],lazy[i]);
     inc(tree[i*+].l,lazy[i]);
     inc(tree[i*+].r,lazy[i]);
     lazy[i]:=;
   end;

 procedure build(i,l,r:longint);
   var m:longint;
   begin
     if l=r then
     begin
       tree[i].l:=a[l+]-a[l];
       tree[i].r:=a[l+]-a[l];
       tree[i].ld:=;
       tree[i].rd:=;
     end
     else begin
       m:=(l+r) shr ;
       build(i*,l,m);
       build(i*+,m+,r);
       update(tree[i],tree[i*],tree[i*+]);
     end;
   end;

 procedure add(i,l,r:longint);
   var m:longint;
   begin
     if (x<=l) and (y>=r) then
     begin
       inc(tree[i].l,z);
       inc(tree[i].r,z);
       lazy[i]:=lazy[i]+z;
     end
     else begin
       if lazy[i]<> then push(i);
       m:=(l+r) shr ;
       if x<=m then add(i*,l,m);
       if y>m then add(i*+,m+,r);
       update(tree[i],tree[i*],tree[i*+]);
     end;
   end;

 function ask(i,l,r:longint):node;
   var s,s1,s2:node;
       m:longint;
   begin
     if (x<=l) and (y>=r) then exit(tree[i])
     else begin
       m:=(l+r) shr ;
       if lazy[i]<> then push(i);
       if y<=m then exit(ask(i*,l,m));
       if x>m then exit(ask(i*+,m+,r));
       s1:=ask(i*,l,m);
       s2:=ask(i*+,m+,r);
       update(s,s1,s2);
       exit(s);
     end;
   end;

 begin
   readln(n);
   for i:= to n do
     readln(a[i]);
   dec(n);
   build(,,n);
   readln(m);
   for i:= to m do
   begin
     read(ch);
     if ch='A' then
     begin
       readln(x0,y0,p,q);
       if x0> then //修改要分三种情况
       begin
         x:=x0-; y:=x0-; z:=p;
         add(,,n);
       end;
       if y0<=n then
       begin
         x:=y0; y:=y0; z:=-int64(p)-int64(y0-x0)*int64(q);
         add(,,n);
       end;
       if x0<y0 then
       begin
         x:=x0; y:=y0-; z:=q;
         add(,,n);
       end;
     end
     else begin
       readln(x,y);
       if y=x then writeln()
       else begin
         dec(y);
         ans:=ask(,,n);
         if ans.s= then writeln((y-x+) shr ) //全是单独的可以直接算出来
         else writeln(ans.s+(ans.ld+) shr +(ans.rd+) shr );
       end;
     end;
   end;
 end.