BZOJ 1022

program bzoj1022;
var    t,n,i,ans,k,j,k1,k2:longint;
    bo:boolean;
begin
    read(t);
    for k:=1 to t do begin
        read(n);
        ans:=0; k2:=0;
        for i:=1 to n do begin
            read(k1);
            if k1>1 then inc(k2);
            ans:=ans xor k1;
        end;
        if ((ans=0) and (k2>0)) or ((ans<>0) and (k2=0)) then writeln('Brother') else writeln('John');
    end;
end.

 

转载于:https://www.cnblogs.com/logichandsome/p/4054646.html