求大佬看看错在哪里了，调了一下午 28pts #2 #3 #11 AC 其余全wa

#include<bits/stdc++.h>
using namespace std;

const int N=1e5+15;
int n,m,r,p;

int h[N*2],to[N*2],ne[2*N],idx=1;
int a[N*2],aid[N*2];//初始值 
int sum[N*4],lazy[N*4],ll[N*4],rr[N*4];//线段树数组(和，懒标记) 
int son[N*2],id[N*2],fa[N*2],cnt=0,dep[N*2],ssize[N*2],top[N*2]; 
//son表示他的重儿子,id表示他的编号,fa表示他的父亲节点,cnt是编号记录器,dep是他的深度,ssize是他儿子加上他自己的大小,top是他重链的顶端
int ans=0,res=0;//答案 

void add(int u,int v)//链式前向星 
{
	to[idx]=v;
	ne[idx]=h[u];
	h[u]=idx++;
}




//向上累加
void push_up(int x)
{
	sum[x]=(sum[x*2]%p+sum[x*2+1]%p)%p;
}





//懒标记下放
void push_down(int x)
{
	if(lazy[x])
	{
		lazy[x*2]=lazy[x];
		lazy[x*2+1]=lazy[x];
		sum[x*2]+=lazy[x]*(rr[x*2]-ll[x*2]+1);
		sum[x*2]%=p;
		sum[x*2+1]+=lazy[x]*(rr[x*2+1]-ll[x*2+1]+1);
		sum[x*2+1]%=p;
		lazy[x]=0;
	}
}





//建立线段树
void build(int x,int l,int r)
{
	lazy[x]=0;
	ll[x]=l;
	rr[x]=r;
	if(l==r)
	{
		//cout<<aid[l]<<endl;
		sum[x]=aid[l];//如果是叶子节点就赋值回溯 
		sum[x]%=p;
		return;
	}
	int mid=(l+r)>>1;
	build(x*2,l,mid);//找左儿子 
	build(x*2+1,mid+1,r);//找右儿子 
	push_up(x);
}




//区间修改 
void update(int x,int l,int r,int k)
{
	//cout<<x<<endl;
	//cout<<l<<" "<<ll[x]<<" "<<rr[x]<<" "<<r<<" "<<x<<endl;
	if(l<=ll[x]&&rr[x]<=r)
	{
		lazy[x]+=k;
		sum[x]+=k*(rr[x]-ll[x]+1);
        sum[x]%=p;
        return;
	}
	push_down(x);
	int mid=(ll[x]+rr[x])/2;
	if(l<=mid)
	{
		update(x*2,l,r,k);
	}
	if(r>mid)
	{
		update(x*2+1,l,r,k);
	}
	push_up(x);
}




//区间查询
void query(int x,int l,int r)
{	
	//cout<<x<<endl;
	if(l<=ll[x]&&rr[x]<=r)
	{
		//cout<<sum[x]<<endl;
		res+=sum[x];
		res%=p;
		return;
	}
	push_down(x);
	int mid=(ll[x]+rr[x])>>1;
	if(l<=mid)
	{
		query(x*2,l,r);
	}
	if(r>mid)
	{
		query(x*2+1,l,r);
	}
}




//------------------------------上为线段树，下为重链剖分----------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 




//第一次深搜，预处理出son,dep,fa,ssize
void dfs(int u,int f,int deep)
{
	//cout<<u<<" ";
	dep[u]=deep;//预处理dep 
	fa[u]=f;//预处理fa
	ssize[u]=1;//把自己的子树加上自己 
	int maxson=-1;
	for(int i=h[u];i!=-1;i=ne[i])//用链式前向星循环 
	{
		int v=to[i];
		if(v==f)//不能往回走，避免卡住 
		{
			continue;
		}
		dfs(v,u,deep+1);//深搜   
		ssize[u]+=ssize[v];//加上自己的儿子的子树大小(预处理ssize) 
		if(ssize[v]>maxson)
		{
			son[u]=v;//预处理son 
			maxson=ssize[v];
		}
	}
	
}




//第二次深搜，预处理id,aid,top
void dp_dfs(int u,int topf)//topf是u所在树链开始地点（顶点）
{
	//cout<<u<<" ";
	id[u]=++cnt;//记录新点编号
	aid[cnt]=a[u];//记录新点点权 
	top[u]=topf;//记录所在树链起点
	if(!son[u])
	{
		return;//没有儿子就返回 
	}
	dp_dfs(son[u],topf);//继续找重儿子 
	for(int i=h[u];i!=-1;i=ne[i])
	{
		int v=to[i];
		if(v==fa[u]||v==son[u])//判断轻儿子 
		{
			continue;
		}
		dp_dfs(v,v);//每个轻儿子都有以自己为顶点的子树 
	}
}



void updrange(int x,int y,int z)//区间修改（做和） 
{
	z%=p;
	while(top[x]!=top[y])
	{
		if(dep[top[x]]<dep[top[y]])
		{
			swap(x,y);
		}
		update(1,id[top[x]],id[x],z);
		x=fa[top[x]];
	}
	if(dep[x]>dep[y])
	{
		swap(x,y);
	}
	update(1,id[x],id[y],z);
}




//
int qrange(int x,int y)
{
	ans=0;
	while(top[x]!=top[y])
	{
		res=0;
		if(dep[top[x]]<dep[top[y]])
		{
			swap(x,y);
		}
		query(1,id[top[x]],id[x]);
		ans+=res;
		ans%=p;
		x=fa[top[x]];
	}
	res=0;
	if(dep[x]>dep[y])
	{
		swap(x,y);
	}
	query(1,id[x],id[y]);
	ans+=res;
	ans%=p;
	return ans;
}




//更改子树值 
void upson(int x,int k)
{
	update(1,id[x],id[x]+ssize[x]-1,k);
}




//子树和相加 
int qson(int x)
{
	res=0;
	query(1,id[x],id[x]+ssize[x]-1);
	return res;
}




int main()
{
	memset(h,-1,sizeof(h));
	scanf("%d%d%d%d",&n,&m,&r,&p);
	for(int i=1;i<=n;i++)//输入每个点的点权
	{
		cin>>a[i];
		 
	}
	for(int i=1;i<n;i++)//建树 
	{
		int x,y;
		scanf("%d%d",&x,&y);
		add(x,y);//使用链式前向星 
		add(y,x);
	}
	dfs(r,0,1);//执行第一次深搜，预处理出son,dep,fa,ssize
	//
	dp_dfs(r,r);//执行第二次深搜，预处理出id,top,aid
	//cout<<1;
	build(1,1,n);//建立线段树 
	for(int i=1;i<=m;i++)
	{
		int q;
		scanf("%d",&q);
		if(q==1)
		{
			int x,y,z;
			scanf("%d%d%d",&x,&y,&z);
			updrange(x,y,z);
		}
		else if(q==2)
		{
			int x,y;
			scanf("%d%d",&x,&y);
			printf("%d\n",qrange(x,y));
		}
		else if(q==3)
		{
			int x,y;
			scanf("%d%d",&x,&y);
			upson(x,y);
		}
		else if(q==4)
		{
			int x;
			scanf("%d",&x);
			printf("%d\n",qson(x));
		}
	}
	return 0;
}