#include"beechtree.h"
#include<algorithm>
#include<set>
#include<iostream>
#include<map>
#include<queue>
using namespace std;
int n;
vector<int>ch[200000];
map<int,int>ch_col[200000];
int par[200000];
int col[200000];
bool bad[200000];
int sub[200000];
bool res[200000];
void dfs1(int node){
sub[node]=1;
for(int c:ch[node]){
dfs1(c);
sub[node]+=sub[c];
}
}
void dfs2(int node){
bad[node]=ch[node].size()!=ch_col[node].size();
for(int c:ch[node]){
dfs2(c);
bad[node]|=bad[c];
}
}
bool good(int a,int b){
for(auto[c,i]:ch_col[b])
if(ch_col[a][c]<i)
return false;
return true;
}
set<pair<int,int>>get(int node){
res[node]=!bad[node];
set<pair<int,int>>s;
s.insert({sub[node],node});
for(int c:ch[node]){
auto r=get(c);
for(auto i:r)
s.insert(i);
}
vector<pair<int,int>>vec(s.begin(),s.end());
for(int i=0;i<(int)vec.size()-1;i++)
if(!good(vec[i+1].second,vec[i].second))
res[node]=false;
/*if(bad[node]){
res[node]=false;
return;
}*/
/*int cs=node;
priority_queue<pair<int,int>>q;
for(int c:ch[node])
q.push({sub[c],c});
while(q.size()){
int cn=q.top().second;
q.pop();
if(!good(cs,cn)){
res[node]=false;
return;
}
cs=cn;
for(int c:ch[cn])
q.push({sub[c],c});
}
res[node]=true;*/
return s;
}
vector<int>beechtree(int N,int M,vector<int>P,vector<int>C){
n=N;
for(int i=0;i<n;i++)
ch[i].clear();
for(int i=0;i<n;i++){
par[i]=P[i];
if(i)
ch[par[i]].push_back(i);
col[i]=C[i];
}
dfs1(0);
for(int i=0;i<n;i++){
ch_col[i].clear();
for(int c:ch[i])
ch_col[i][col[c]]=sub[c];
}
dfs2(0);
get(0);
vector<int>res2(n);
for(int i=0;i<n;i++)
res2[i]=res[i];
return res2;
}
