P3384 轻重链剖分（树剖模板）

操作 1： 格式： 1 x y z 表示将树从 x 到 y 结点最短路径上所有节点的值都加上 z。

操作 2： 格式：2 x y 表示求树从 x 到 y 结点最短路径上所有节点的值之和。

操作 3： 格式： 3 x z 表示将以 x 为根节点的子树内所有节点值都加上 z。

操作 4： 格式： 4 x 表示求以 x 为根节点的子树内所有节点值之和

第一行包含 4 个正整数 N,M,R,P，分别表示树的结点个数、操作个数、根节点序号和取模数（即所有的输出结果均对此取模）。

接下来一行包含 N 个非负整数，分别依次表示各个节点上初始的数值。

接下来 N−1 行每行包含两个整数 x,y，表示点 x 和点 y 之间连有一条边（保证无环且连通）。

接下来 MM 行每行包含若干个正整数，每行表示一个操作，格式如下：

操作 1：1 x y z；

操作 2： 2 x y；

操作 3：3 x z；

操作 4： 4 x。

输出格式
输出包含若干行，分别依次表示每个操作2 或操作 4 所得的结果（对 P 取模）。

#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
const int mx=1e5+10;
const int MAXN=2*1e6+10;
const double PI=cos(-1.0);
int dep[mx],top[mx],w[mx],son[mx],id[mx],siz[mx],fa[mx],res=0,cnt=0,a[mx];
int qr[mx<<2],laz[mx<<2];
int n,m,r,p;
vector<int>G[mx];
#define Temp template<typename T>
inline char nc()
{
    static char buf[MAXN],*p1=buf,*p2=buf;
    return p1==p2&&(p2=(p1=buf)+fread(buf,1,MAXN,stdin),p1==p2)?EOF:*p1++;
}
inline int read()
{
    char c=nc();int x=0,f=1;
    while(c<'0'||c>'9'){if(c=='-')f=-1;c=nc();}
    while(c>='0'&&c<='9'){x=x*10+c-'0',c=nc();}
    return x*f;
}
#define mid ((l+r)>>1)
#define lson rt<<1,l,mid
#define rson rt<<1|1,mid+1,r
#define len (r-l+1)
inline void pushdown(int rt,int lenn)
{
    laz[rt<<1]+=laz[rt];
    laz[rt<<1|1]+=laz[rt];
    qr[rt<<1]+=laz[rt]*(lenn-(lenn>>1));
    qr[rt<<1|1]+=laz[rt]*(lenn>>1);
    qr[rt<<1]%=p;
    qr[rt<<1|1]%=p;
    laz[rt]=0;
}
inline void build(int rt,int l,int r)
{
    if(l==r)
    {
        qr[rt]=w[l];
        if(qr[rt]>p) qr[rt]%=p;
        return ;
    }
    build(lson);
    build(rson);
    qr[rt]=(qr[rt<<1]+qr[rt<<1|1])%p;
}
inline void query(int rt,int l,int r,int L,int R){
    if(L<=l&&r<=R){res+=qr[rt];res%=p;return;}
    else{
        if(laz[rt])pushdown(rt,len);
        if(L<=mid)query(lson,L,R);
        if(R>mid)query(rson,L,R);
    }
}
inline void updata(int rt,int l,int r,int L,int R,int k)
{
    if(L<=l&&r<=R)
    {
        laz[rt]+=k;
        qr[rt]+=k*len;
    }
    else{
        if(laz[rt]) pushdown(rt,len);
        if(L<=mid) updata(lson,L,R,k);
        if(R>mid) updata(rson,L,R,k);
        qr[rt]=(qr[rt<<1]+qr[rt<<1|1])%p;
    }
}
inline int qrange(int x,int y)
{
    int ans=0;
    while(top[x]!=top[y])
    {
        if(dep[top[x]]<dep[top[y]]) swap(x,y);
        res=0;
        query(1,1,n,id[top[x]],id[x]);
        ans=(ans+res)%p;
        x=fa[top[x]];
    }
    if(dep[x]>dep[y]) swap(x,y);res=0;
    query(1,1,n,id[x],id[y]);
    ans+=res;
    return ans%p;
}
inline int upqrange(int x,int y,int k)
{
    k%=p;
    while(top[x]!=top[y])
    {
        if(dep[top[x]]<dep[top[y]]) swap(x,y);
        updata(1,1,n,id[top[x]],id[x],k);
        x=fa[top[x]];
    }
    if(dep[x]>dep[y]) swap(x,y);
    updata(1,1,n,id[x],id[y],k);

}
inline void dfs(int u,int fath,int deep)
{
     fa[u]=fath;
     dep[u]=deep;
     siz[u]=1;
     int maxone=-1;
     for(int i=0;i<G[u].size();i++)
     {
         int to=G[u][i];
         if(to==fath) continue;
         dfs(to,u,deep+1);
         siz[u]+=siz[to];
         if(siz[to]>maxone)
         {
             maxone=siz[to];
             son[u]=to;
         }
     }
}
inline void dfs2(int x,int fst)
{
    top[x]=fst;
    id[x]=++cnt;
    w[cnt]=a[x];
    if(!son[x]) return;
    dfs2(son[x],fst);
    for(register int i=0;i<G[x].size();i++)
    {
        int v=G[x][i];
        if(v==fa[x]||v==son[x]) continue;
        dfs2(v,v);
    }
}
int main()
{
    scanf("%d%d%d%d",&n,&m,&r,&p);
//    n=read(),m=read(),r=read(),p=read();
    for(int i=1;i<=n;i++) scanf("%d",&a[i]);

    for(int i=1,x,y;i<n;i++)
    {
        scanf("%d%d",&x,&y);
//        x=read();y=read();
        G[x].push_back(y);
        G[y].push_back(x);
    }
    dfs(r,0,1);
    dfs2(r,r);
    build(1,1,n);
    for(int i=1,x,y,z,q;i<=m;i++)
    {
        scanf("%d",&q);
        if(q==1)
        {
            scanf("%d%d%d",&x,&y,&z);
//            x=read();y=read();z=read();
            upqrange(x,y,z);
        }
        else if(q==2)
        {
           scanf("%d%d",&x,&y);
            printf("%d\n",qrange(x,y));
        }
        else if(q==3)
        {
            scanf("%d%d",&x,&z);
           // x=read();z=read();
            updata(1,1,n,id[x],id[x]+siz[x]-1,z);
        }
        else
        {
            scanf("%d",&x);
            res=0;query(1,1,n,id[x],id[x]+siz[x]-1);
            printf("%d\n",res);
        }
    }
   return 0;
}