测评机： Xeost[5]

得分： 100分 [我要评价一下题目~]

提交日期： 2013-7-13 13:05:00

有效耗时： 1954毫秒

测试结果1: 通过本测试点|有效耗时172ms

测试结果2: 通过本测试点|有效耗时156ms

测试结果3: 通过本测试点|有效耗时219ms

测试结果4: 通过本测试点|有效耗时250ms

测试结果5: 通过本测试点|有效耗时188ms

测试结果6: 通过本测试点|有效耗时172ms

测试结果7: 通过本测试点|有效耗时172ms

测试结果8: 通过本测试点|有效耗时203ms

测试结果9: 通过本测试点|有效耗时203ms

测试结果10: 通过本测试点|有效耗时219ms

ch:char;

f11,f21,winer,i:longint;

v11,v21:array[1..10000,-1..1] of longint;

begin

read(ch); f11:=1; f21:=1;

v11[1,1]:=0; v11[1,-1]:=0; v21[1,1]:=0; v21[1,-1]:=0;

while ch<>'E' do begin

case ch of

'W':winer:=1;

'L':winer:=-1;

else

winer:=0;

end;

if winer<>0 then begin

v11[f11,winer]:=v11[f11,winer]+1;

v21[f21,winer]:=v21[f21,winer]+1;

if(v11[f11,winer]>=11)and

(v11[f11,winer]-v11[f11,-winer]>=2)then begin

f11:=f11+1;

v11[f11,1]:=0;

v11[f11,-1]:=0;

end;

if(v21[f21,winer]>=21)and

(v21[f21,winer]-v21[f21,-winer]>=2)then begin

f21:=f21+1;

v21[f21,1]:=0;

v21[f21,-1]:=0;

end end;

read(ch);

end;

for i:=1 to f11 do begin

writeln(v11[i,1],':',v11[i,-1]);

end; writeln;

for i:=1 to f21 do begin

writeln(v21[i,1],':',v21[i,-1]);

end;

end.