1022: [SHOI2008]小约翰的游戏John

Description

小约翰经常和他的哥哥玩一个非常有趣的游戏：桌子上有n堆石子，小约翰和他的哥哥轮流取石子，每个人取的时候，可以随意选择一堆石子，在这堆石子中取走任意多的石子，但不能一粒石子也不取，我们规定取到最后一粒石子的人算输。小约翰相当固执，他坚持认为先取的人有很大的优势，所以他总是先取石子，而他的哥哥就聪明多了，他从来没有在游戏中犯过错误。小约翰一怒之前请你来做他的参谋。自然，你应该先写一个程序，预测一下谁将获得游戏的胜利。
Input

本题的输入由多组数据组成，第一行包括一个整数T，表示输入总共有T组数据（T≤500）。每组数据的第一行包括一个整数N（N≤50），表示共有N堆石子，接下来有N个不超过5000的整数，分别表示每堆石子的数目。
Output

每组数据的输出占一行，每行输出一个单词。如果约翰能赢得比赛，则输出“John”，否则输出“Brother”，请注意单词的大小写。
Sample Input
2 3 3 5 1 1 1

Sample Output
John
Brother

【数据规模】
对于40%的数据，T ≤ 250。
对于100%的数据，T ≤ 500。

anti-sg裸题

两种情况下，先手必胜

1，整个游戏的sg=0，没有单个sg大于1的

2，整个游戏的sg不为0，有单个sg大于1的

var
    i,t:longint;
 
procedure main;
var
    n,i,x,y:longint;
    flag:boolean;
begin
    flag:=false;
    read(n);
    x:=0;
    for i:=1 to n do
      begin
        read(y);
        x:=x xor y;
        if y>1 then flag:=true;
      end;
    if (flag)xor(x=0) then writeln('John')
    else writeln('Brother');
end;
 
begin
    read(t);
    for i:=1 to t do
      main;
end.