我们可以给入栈出栈序上的每个点乘以一个系数,入栈为1,出栈为-1,这样我们只要求一个前缀和就可以啦。但我们还要维护Splay中区间的系数和,因为这在区间修改时会用到
#include <cstdio>
#include <iostream>
#include <cstring>
#include <algorithm>
using namespace std;
const int maxn=100010;
typedef long long ll;
struct node
{
ll fa,ch[2],size;
ll tag,sw,sv,w,v;
}p[maxn<<1];
ll n,m,tot,cnt,root;
ll f[maxn],to[maxn],next[maxn],head[maxn],q[maxn<<1];
char str[5];
ll readin()
{
ll ret=0; char gc;
while(gc<‘0‘||gc>‘9‘) gc=getchar();
while(gc>=‘0‘&&gc<=‘9‘) ret=ret*10+gc-‘0‘,gc=getchar();
return ret;
}
void dfs(ll x)
{
q[++tot]=x;
for(ll i=head[x];i!=-1;i=next[i]) dfs(to[i]);
q[++tot]=x+n;
}
void add(ll a,ll b)
{
to[cnt]=b;
next[cnt]=head[a];
head[a]=cnt++;
}
void pushup(ll x)
{
p[x].sw=p[p[x].ch[0]].sw+p[p[x].ch[1]].sw+p[x].w;
p[x].sv=p[p[x].ch[0]].sv+p[p[x].ch[1]].sv+p[x].v;
p[x].size=p[p[x].ch[0]].size+p[p[x].ch[1]].size+1;
}
void pushdown(ll x)
{
if(p[x].ch[0]) p[p[x].ch[0]].sw+=p[p[x].ch[0]].sv*p[x].tag,p[p[x].ch[0]].w+=p[p[x].ch[0]].v*p[x].tag,p[p[x].ch[0]].tag+=p[x].tag;
if(p[x].ch[1]) p[p[x].ch[1]].sw+=p[p[x].ch[1]].sv*p[x].tag,p[p[x].ch[1]].w+=p[p[x].ch[1]].v*p[x].tag,p[p[x].ch[1]].tag+=p[x].tag;
p[x].tag=0;
}
void build(ll l,ll r,ll last)
{
if(l>r) return ;
ll mid=l+r>>1;
p[q[mid]].fa=q[last];
if(last) p[q[last]].ch[mid>last]=q[mid];
build(l,mid-1,mid),build(mid+1,r,mid);
pushup(q[mid]);
}
void rotate(ll x,ll &k)
{
ll y=p[x].fa,z=p[y].fa,d=(x==p[y].ch[1]);
if(y==k) k=x;
else p[z].ch[y==p[z].ch[1]]=x;
p[x].fa=z,p[y].fa=x,p[y].ch[d]=p[x].ch[d^1];
if(p[x].ch[d^1]) p[p[x].ch[d^1]].fa=y;
p[x].ch[d^1]=y;
pushup(y),pushup(x);
}
ll qrank(ll x)
{
ll ret;
if(x==root) ret=p[p[x].ch[0]].size+1;
else if(x==p[p[x].fa].ch[0]) ret=qrank(p[x].fa)-p[p[x].ch[1]].size-1;
else ret=qrank(p[x].fa)+p[p[x].ch[0]].size+1;
pushdown(x);
return ret;
}
void splay(ll x,ll &k)
{
while(x!=k)
{
ll y=p[x].fa,z=p[y].fa;
if(y!=k)
{
if((p[y].ch[0]==x)^(p[z].ch[0]==y)) rotate(x,k);
else rotate(y,k);
}
rotate(x,k);
}
}
ll find(ll x,ll y)
{
pushdown(x);
if(p[p[x].ch[0]].size+1==y) return x;
if(y<=p[p[x].ch[0]].size) return find(p[x].ch[0],y);
else return find(p[x].ch[1],y-p[p[x].ch[0]].size-1);
}
void _Q()
{
ll x;
x=readin();
qrank(x);
splay(x,root);
printf("%lld\n",p[p[x].ch[0]].sw+p[x].w);
}
void _C()
{
ll x,y,u,t;
x=readin(),y=readin();
splay(find(root,qrank(x)-1),root);
splay(find(root,qrank(x+n)+1),p[root].ch[1]);
u=p[p[root].ch[1]].ch[0];
p[p[root].ch[1]].ch[0]=0;
pushup(p[root].ch[1]),pushup(root);
qrank(y),qrank(y+n);
splay(y,root);
splay(y+n,p[root].ch[1]);
t=p[root].ch[1];
while(p[t].ch[0]) t=p[t].ch[0];
qrank(t);
p[t].ch[0]=u,p[u].fa=t;
while(t) pushup(t),t=p[t].fa;
}
void _F()
{
ll x,y;
x=readin(),y=readin();
splay(find(root,qrank(x)-1),root);
splay(find(root,qrank(x+n)+1),p[root].ch[1]);
p[p[p[root].ch[1]].ch[0]].sw+=p[p[p[root].ch[1]].ch[0]].sv*y;
p[p[p[root].ch[1]].ch[0]].w+=p[p[p[root].ch[1]].ch[0]].v*y;
p[p[p[root].ch[1]].ch[0]].tag+=y;
}
int main()
{
n=readin();
ll i;
memset(head,-1,sizeof(head));
for(i=2;i<=n;i++) f[i]=readin(),add(f[i],i);
for(i=1;i<=n;i++) p[i].w=readin(),p[i+n].w=-p[i].w,p[i].v=1,p[i+n].v=-1;
tot=1;
dfs(1);
root=q[n+1],q[1]=2*n+1,q[2*n+2]=2*n+2;
build(1,2*n+2,0);
m=readin();
for(i=1;i<=m;i++)
{
scanf("%s",str);
switch(str[0])
{
case ‘Q‘:_Q(); break;
case ‘C‘:_C(); break;
case ‘F‘:_F(); break;
}
}
return 0;
}