游戏

Description
　　Bob经常与Alice一起玩游戏。今天，他们在一棵树上玩游戏。Alice有M1块石子，Bob有M2块石子，游戏一开始，所有石头放在树的节点处，除了树根。Alice先移然后两人轮流移动，每次移动只能选择自己的一个石子，而且只能从当前位置移到父亲节点处，游戏过程中允许一个节点处放多个石子。
　　谁先把自己所有的石子移到树根处谁就失败了，假设两人都是非常聪明，游戏过程中都使用最优策略，给定石子起始位置，要你计算出谁是赢家。

Input
输入包含多组测试数据。
第一行输入T(T<=10)表示测试数据组数。
接下来每组测试数据第一行输入3个整数N(1<=N<=10000)，M1(1<=M1<=10000)，M2(1<=M2<=10000)，其中N表示树的节点数。
接下来N-1行描述树，每行包含两个整数A和B(0<=A,B<=N-1)表示树中有一条边连接A,B两点，注意0是树根。
接下来一行M1个数，表示Alice的M1个石子的位置。
接下来一行M2个数，表示Bob的M2个石子的位置。

Output
对于每组测试数据，输出赢家的名字。

Sample Input
2
3 1 1
0 1
2 0
1
2
3 2 1
0 1
1 2
2 2
2

Sample Output
Bob
Alice

Hint
【数据说明】
30%的数据满足1<=N<=10,1<=M1,M2<=3
.
.
.
.
.
.
.

分析

看上去像是博弈的题，其实操作次数是一个定值，一定等于每个石子到树根距离之和
因此只需求出A的总距离和，B的总距离和，并把它们比较
如果A>B，则A赢；如果A<=B，则B赢。
.
.
.
.
.
.

程序：

uses math;
var
f:array[0..100001]of longint;
b:array[0..100000]of longint;
a:array[0..10000,0..1000]of boolean;
k,x,y,i,n,m1,m2,t,w,ans,j,z:longint;
begin
    readln(z);
    for i:=1 to z do
    begin
        readln(n,m1,m2);
        fillchar(a,sizeof(a),false);
        for j:=1 to n-1 do
        begin
            readln(x,y);
            a[y,x]:=true;
            a[x,y]:=true;
        end;
        t:=1;
        w:=1;
        fillchar(f,sizeof(f),127);
        f[0]:=0;
        b[1]:=0;
        while t<=w do
        begin
            for k:=0 to n do
            if (a[b[t],k]=true)and(f[k]=f[10001]) then
            begin
                inc(w);
                b[w]:=k;
                f[k]:=min(f[k],f[b[t]]+1);
            end;
            inc(t);
        end;
        ans:=0;
        for k:=1 to m1 do
        begin
            read(x);
            ans:=ans+f[x];
        end;
        readln;
        for k:=1 to m2 do
        begin
            read(x);
            ans:=ans-f[x];
        end;
        readln;
        if ans>0 then writeln('Alice') else writeln('Bob');
    end;
end.