var s:array[1..100000]of char;

i,t1,t2,k1,k2,a,b:longint;

t,k:array[1..1000000,1..2]of integer;

begin

i:=0;s[0]:='a';a:=0;b:=0;

t1:=0;t2:=0;k1:=0;k2:=0;

while s[i]'E' do

begin

inc(i);

read(s[i]);

if s[i]='W' then begin inc(t1);inc(k1);end;

if s[i]='L' then begin inc(t2);inc(k2);end;

if t1+t2=11 then begin inc(a);t[a,1]:=t1;t[a,2]:=t2;t1:=0;t2:=0;end;

if k1+k2=21 then begin inc(b);k:=k1;k:=k2;k1:=0;k2:=0;end;

end;

if s[1]='E' then begin writeln('0:0');writeln;write('0:0');exit;end;

for i:=1 to a do writeln(t,':',t);

writeln(t1,':',t2);

writeln;

for i:=1 to b do writeln(k,':',k);

writeln(k1,':',k2);

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：50 有效耗时：0ms