d566: 秒殺率

内容 ：

大韬自从成为题目管理员以后，
便积极的把平时灵机一动的想法出成题目上传到ZeroJudge。
但是他出的题目太简单了，
题目总是通过率百分之百！

有一天他查看解题纪录的时候发现，
同样通过率百分之百的两个题目，
有的会让使用者第一次就AC，
而其他可能大部分使用者会有几次尝试发生WA、NA以后才会AC。

我们定义：
「如果一个使用者在第一次Submit就AC一个题目，就是他"秒杀"了这题」。
现在有一张从ZeroJudge上撷取的解题纪录表，
而「秒杀率 = 秒杀人数÷AC人数」，
大韬想请你分析一下这题的秒杀率是多少？

输入说明 ：

共计四个测资点，每个测资点只有一组测试资料。

第一行有整数n(1<=n<=10000)，表示接下来的解题纪录表有n行。
从第二行开始，每行有"解题者帐号"<空格>"解题状况"。
解题者帐号由小于30字元的大写字母、小写字母、数字组成，并且大小写视为不同。
解题状况则有AC、NA、WA、TLE、CE五种
并且请注意，此处的解题纪录"排在前面"的资料代表时间"越晚"(与ZJ实际状况同)

输出说明 ：

请输出秒杀人数÷AC人数，以百分比为单位。
(保证输出的百分比会是整数，并且AC人数必定大于0)

范例输入 ：

若题目没有特别说明，则应该以多测资的方式读取，若不知如何读取请参考 a001 的范例程式。

30
BonBon CE
BonBon CE
BonBon CE
duckingod AC
duckingod AC
BonBon CE
BonBon CE
BonBon CE
BonBon CE
BonBon CE
e196819 TLE
e196819 NA
ws124310 AC
BonBon CE
BonBon CE
BonBon CE
BonBon CE
ws124310 NA
duckingod AC
BonBon CE
BonBon CE
BonBon CE
duckingod AC
duckingod AC
ws124310 NA
ws124310 TLE
e196819 CE
e196819 TLE
e196819 AC
jack1 AC

 

范例输出 ：

75%

提示 ：

 

如测资有误或有任何意见请前辈不吝惜来信指教！

(PS.你，能秒杀这题吗？)

 

出处 ：

jack1 (管理员：jack1)

我的程序：

(**********************************************************************************) (* Problem: d566 "秒殺率" from jack1 *) (* Language: PASCAL *) (* Result: AC (8ms, 648KB) on ZeroJudge *) (* Author: hans at 2009-12-12 18:23:13 *) (**********************************************************************************) program Project1; type link=^node; node=record a:array[chr(1)..chr(255)]of link; data:longint; ac:boolean; end; var n,i,res,num,j,k,t:longint; c:char; p,head:link; s:string; ac:boolean; a:array[1..10000]of link; begin while not eof do begin readln(n); res:=0; num:=0; t:=0; new(head); head^.data:=0; for c:=chr(1) to chr(255) do head^.a[c]:=nil; for j:=1 to n do begin readln(s); for k:=1 to length(s) do if s[k]=' ' then begin if copy(s,k+1,length(s)-k)='AC' then ac:=true else ac:=false; s:=copy(s,1,k-1); break; end; p:=head; for i:=1 to length(s) do if p^.a[s[i]]<>nil then {data-- 0:none; 1:unaccept; 2:ac;} begin {res:ac number; num:ac at first;} p:=p^.a[s[i]]; if i=length(s) then if p^.data<>0 then begin if not(ac) and (p^.data=2) then p^.data:=1; if ac then begin p^.ac:=true;p^.data:=2; end; end; end else begin new(p^.a[s[i]]); p:=p^.a[s[i]]; for c:=chr(1) to chr(255) do p^.a[c]:=nil; p^.data:=0; if i=length(s) then begin inc(t); a[t]:=p; if ac then begin p^.data:=2;p^.ac:=true; end else begin p^.ac:=false;p^.data:=1; end; end; end; end; res:=0; num:=0; for i:=1 to t do begin if a[i]^.data=2 then inc(num);if a[i]^.ac then inc(res); end; if res<>0 then writeln(num*100 div res,'%') else writeln('100%'); end; end.