线段树。。调的要死

老师交给小可可一个维护数列的任务，现在小可可希望你来帮他完成。 有长为N的数列，不妨设为a1,a2,…,aN 。有如下三种操作形式： (1)把数列中的一段数全部乘一个值; (2)把数列中的一段数全部加一个值; (3)询问数列中的一段数的和，由于答案可能很大，你只需输出这个数模P的值。

第一行两个整数N和P(1≤P≤1000000000）。第二行含有N个非负整数,从左到右依次为a1,a2,…,aN, (0≤ai≤1000000000,1≤i≤N)。第三行有一个整数M，表示操作总数。从第四行开始每行描述一个操作，输入的操作有以下三种形式： 操作1：“1 t g c”(不含双引号)。表示把所有满足t≤i≤g的ai改为ai×c (1≤t≤g≤N,0≤c≤1000000000)。 操作2：“2 t g c”(不含双引号)。表示把所有满足t≤i≤g的ai改为ai+c (1≤t≤g≤N,0≤c≤1000000000)。 操作3：“3 t g”(不含双引号)。询问所有满足t≤i≤g的ai的和模P的值 (1≤t≤g≤N)。 同一行相邻两数之间用一个空格隔开，每行开头和末尾没有多余空格。

对每个操作3，按照它在输入中出现的顺序，依次输出一行一个整数表示询问结果。

【样例说明】

初始时数列为(1,2,3,4,5,6,7)。
经过第1次操作后，数列为(1,10,15,20,25,6,7)。
对第2次操作，和为10+15+20=45，模43的结果是2。
经过第3次操作后，数列为(1,10,24,29,34,15,16}
对第4次操作，和为1+10+24=35，模43的结果是35。
对第5次操作，和为29+34+15+16=94,模43的结果是8。



测试数据规模如下表所示

数据编号 1 2 3 4 5 6 7 8 9 10
N= 10 1000 1000 10000 60000 70000 80000 90000 100000 100000
M= 10 1000 1000 10000 60000 70000 80000 90000 100000 100000

 

program hehe;
type
shu=record
h,a,m:int64;
l,r:longint;
end;
var
n,q,t,m,i,j,k,f:longint;
x:array[0..1000000] of shu;

 

procedure build(a,l,r:longint);
var
mid:longint;
begin
x[a].l:=l;
x[a].r:=r;
x[a].m:=1;
if l=r then read(x[a].h)
else
begin
mid:=(l+r)>>1;
build(a<<1,l,mid);
build(a<<1+1,mid+1,r);
x[a].h:=(x[a<<1].h+x[a<<1+1].h)mod m;
end;
end;

 

procedure down(a:longint);
begin
if x[a].m<>1 then
begin
x[a<<1].m:=x[a<<1].m*x[a].m mod m;
x[a<<1+1].m:=x[a<<1+1].m*x[a].m mod m;
x[a<<1].a:=x[a<<1].a*x[a].m mod m;
x[a<<1+1].a:=x[a<<1+1].a*x[a].m mod m;
x[a<<1].h:=(x[a<<1].h mod m)*x[a].m mod m;
x[a<<1+1].h:=(x[a<<1+1].h mod m)*x[a].m mod m;
x[a].m:=1;
end;
if x[a].a<>0 then
begin
x[a<<1].a:=x[a<<1].a+x[a].a;
x[a<<1+1].a:=x[a<<1+1].a+x[a].a;
x[a<<1].h:=(x[a<<1].h+(x[a<<1].r-x[a<<1].l+1)*x[a].a)mod m;
x[a<<1+1].h:=(x[a<<1+1].h+(x[a<<1+1].r-x[a<<1+1].l+1)*x[a].a)mod m;
x[a].a:=0;
end;
end;

 

procedure cheng(a,l,r,b:longint);
var
mid:longint;
begin
down(a);
if (x[a].l=l)and(x[a].r=r) then
begin
x[a].m:=b;
x[a].h:=(x[a].h mod m)*b mod m;
end
else
begin
mid:=(x[a].l+x[a].r)>>1;
if l>mid then cheng(a<<1+1,l,r,b)
else if r<=mid then cheng(a<<1,l,r,b)
else
begin
cheng(a<<1,l,mid,b);
cheng(a<<1+1,mid+1,r,b);
end;
x[a].h:=(x[a<<1].h+x[a<<1+1].h)mod m;
end;
end;

 

procedure jia(a,l,r,b:longint);
var
mid:longint;
begin
down(a);
if (x[a].l=l)and(x[a].r=r) then
begin
x[a].a:=b;
x[a].h:=(x[a].h+(x[a].r-x[a].l+1)*b)mod m;
end
else
begin
mid:=(x[a].l+x[a].r)>>1;
if l>mid then jia(a<<1+1,l,r,b)
else if r<=mid then jia(a<<1,l,r,b)
else
begin
jia(a<<1,l,mid,b);
jia(a<<1+1,mid+1,r,b);
end;
x[a].h:=(x[a<<1].h+x[a<<1+1].h)mod m;
end;
end;

 

function find(a,l,r:longint):int64;
var
mid:longint;
begin
down(a);
if (x[a].l=l)and(x[a].r=r) then exit(x[a].h mod m);
mid:=(x[a].l+x[a].r)>>1;
if l>mid then exit(find(a<<1+1,l,r)mod m)
else if r<=mid then exit(find(a<<1,l,r)mod m)
else exit((find(a<<1,l,mid)+find(a<<1+1,mid+1,r))mod m);
end;

 

begin
readln(n,m);
build(1,1,n);
readln(q);
for i:=1 to q do
begin
read(j);
if j=1 then
begin
readln(k,f,t);
cheng(1,k,f,t);
end
else if j=2 then
begin
readln(k,f,t);
jia(1,k,f,t);
end
else
begin
readln(k,f);
writeln(find(1,k,f));
end;
end;
end.