题目描述
现在有两个人在玩石头剪子布游戏,请你判断最后谁赢了。
用R代表石头,S代表剪子,P代表布。
输入格式
输入的第一行是一个整数t(0<t<1000),表示测试样例的数目。
每组输入样例的第一行是一个整数n(0<n<100),表示游戏次数。
接下来n行,每行由两个字母组成,两个字母之间用一个空格分隔,这些字母只会是R,S或P。
第一个字母表示Player1的选择,第二个字母表示Player2的选择。
输出
对于每组输入样例,输出获胜方的名字(Player1或Player2),如果平均,则输出TIE。
样例输入
3
2
R P
S R
3
P P
R S
S R
1
P R
样例输出
Player 2
TIE
Player 1
program p1019;
var t,n,i,j,e,f:longint;a,b,c:char;
begin
readln(t);
for i:=1 to t do
begin
readln(n);
e:=0;f:=0;
for j:=1 to n do
begin
readln(a,c,b);
if (a='R') and (b='S') or (a='P') and (b='R')
or (a='S') and (b='P') then e:=e+1;
if (a='S') and (b='R') or (a='P') and (b='S')
or (a='R') and (b='P') then f:=f+1;
end;
if e>f then writeln('Player 1')
else if e<f then writeln('Player 2')
else writeln('TIE');
end;
end.