祖孙询问

Description
已知一棵n个节点的有根树。有m个询问。每个询问给出了一对节点的编号x和y，询问x与y的祖孙关系。

Input
输入第一行包括一个整数n表示节点个数。

接下来n行每行一对整数对a和b表示a和b之间有连边。如果b是-1，那么a就是树的根。

第n+2行是一个整数m表示询问个数。

接下来m行，每行两个正整数x和y。

Output
对于每一个询问，输出1:如果x是y的祖先，输出2:如果y是x的祖先，否则输出0。

Sample Input
10

234 -1

12 234

13 234

14 234

15 234

16 234

17 234

18 234

19 234

233 19

5

234 233

233 12

233 13

233 15

233 19

Sample Output
1

0

0

0

2

Data Constraint
Hint
对于100%的.据,n,m≤40000，每个节点的编号都不超过40000。

分析：跑一遍dfs，记录前序遍历和后序遍历，然后判断即可。
如果x为y的父亲，则
（qian[x]<qian[y]）and(hou[x]>hou[y])。

代码：

type node=record y,next:longint;end;var ls,d,f:array [0..40001] of longint; g:array [0..80001] of node; b:array [0..40001] of boolean; n,m,i,j,x,y,root,h,p:longint;function other(x:longint):longint; begin  if x<=n then exit(x+n)          else exit(x-n); end;procedure dfs(x:longint; var s:longint); var t:longint;begin t:=ls[x]; inc(p); d[x]:=p; while t>0 do  begin   if b[g[t].y] then    begin     b[g[t].y]:=false;     dfs(g[t].y,s);    end;   t:=g[t].next;  end; inc(s); f[x]:=s;end;begin readln(n); for i:=1 to n do  begin   readln(x,y);   if y<>-1 then    begin     g[i].y:=y;     g[i].next:=ls[x];     ls[x]:=i;     g[i+n].y:=x;     g[i+n].next:=ls[y];     ls[y]:=i+n;    end   else root:=x;  end; fillchar(b,sizeof(b),true); b[root]:=false; h:=0; dfs(root,h); readln(m); for i:=1 to m do  begin   readln(x,y);   if (f[x]=0) or (f[y]=0) then    begin     writeln(0);     continue;    end;   if (d[x]<d[y]) and (f[x]>f[y]) then writeln(1)    else     if (d[x]>d[y]) and (f[x]<f[y]) then writeln(2)                                    else writeln(0);  end;end.