记录编号	77254	评测结果	AAAAAAAAAA
题目名称	[NOIP 2003]乒乓球	最终得分	100
用户昵称	TA	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2013-11-01 18:02:04	内存使用	0.00 MiB

type
 po=^no;
 no=record
   win,loss:int64;
   next:po;
  end;
var
 s,s1:ansistring;
 ca:char;
 l:array[1..2] of int64;
 w:array[1..2] of int64;
 he:array[1..2] of po;
 ta:array[1..2] of po;
procedure add(i:longint);
 var
  p:po;
 begin
  if he[i]=nil then
    begin
     new(he[i]);
     new(ta[i]);
     he[i]^.win:=w[i];
     he[i]^.loss:=l[i];
     he[i]^.next:=nil;
     ta[i]:=he[i];
    end
   else
    begin
     new(p);
     p^.win:=w[i];
     p^.loss:=l[i];
     p^.next:=nil;
     ta[i]^.next:=p;
     ta[i]:=p;
    end;
 end;
procedure wr(i:longint);
 begin
  while he[i]<>nil do
   begin
    writeln(he[i]^.win,':',he[i]^.loss);
    he[i]:=he[i]^.next;
   end;
 end;
begin
 assign(input,'table.in');
 assign(output,'table.out');
 reset(input);
 rewrite(output);
 //while not(eof) do
  //begin
   read(ca);
   l[1]:=0;
   l[2]:=0;
   w[1]:=0;
   w[2]:=0;
   he[1]:=nil;
   he[2]:=nil;
   ta[1]:=nil;
   ta[2]:=nil;
   while ca<>'E' do
    begin
     if ca='W' then
       begin
        inc(w[1]);
        inc(w[2]);
       end;
     if ca='L' then
       begin
        inc(l[1]);
        inc(l[2]);
       end;
     if ((l[1]>=11) or (w[1]>=11)) and (abs(l[1]-w[1])>=2) then
       begin
        add(1);
        l[1]:=0;
        w[1]:=0;
       end;
     if ((l[2]>=21) or (w[2]>=21)) and (abs(l[2]-w[2])>=2) then
       begin
        add(2);
        l[2]:=0;
        w[2]:=0;
       end;
     read(ca);
    end;
   add(1);
   add(2);
   wr(1);
   writeln;
   wr(2);
  //end;
 close(input);
 close(output);
end.