129 条题解
-
0
塔罗牌杀手 LV 8 @ 2008-10-02 17:37:37
const
st='jszxoier';
ss1='cow';
ss2='bird';
var
i,j,n,max,maxl,k,l:longint;
s,s0:ansistring;
a:array[1..3000] of ansistring;
b:array[1..3000] of longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
s:='';
for j:=1 to length(a[i]) do
s:=s+a[i][length(a[i])-j+1];
if pos(st,s)>0 then
begin
k:=pos(ss1,s);
while k>0 do
begin
s0:=copy(s,1,k-1);
s0:=s0+ss2+copy(s,k+3,length(s)-k-2);
s:=s0;
k:=pos(ss1,s);
end;
b[i]:=0;
s:=s+' ';
for k:=1 to length(s)-1 do
begin
if (s[k]='r') then b[i]:=b[i]+5;
if (s[k]='p') then b[i]:=b[i]+5;
if (s[k]='r') and (s[k+1]='p') then b[i]:=b[i]+20;
end;
end;
if (b[i]>max) or ((b[i]=max) and (length(s) -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 9ms
├ 测试数据 03：答案正确... 25ms
├ 测试数据 04：答案正确... 9ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 9ms
├ 测试数据 10：答案正确... 0ms
├ 测试数据 11：答案正确... 72ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 9ms
├ 测试数据 16：答案正确... 0ms
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 25ms
├ 测试数据 20：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：158ms好慢啊！！
-
0
谁说不能用数组承放字符！
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
├ 测试数据 11：答案正确... 0ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 0ms
├ 测试数据 16：答案正确... 0ms
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 0ms
├ 测试数据 20：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
├ 测试数据 11：答案正确... 0ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 0ms
├ 测试数据 16：答案正确... 0ms
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 0ms
├ 测试数据 20：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms数据范围让人很郁闷.
-
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 25ms
├ 测试数据 03：答案正确... 56ms
├ 测试数据 04：答案正确... 9ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 9ms
├ 测试数据 11：答案正确... 41ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 9ms
├ 测试数据 16：答案正确... 0ms
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 25ms
├ 测试数据 20：答案正确... 0ms
---|---|---|---|---|---|---|---|-
#include
#include
#include
using namespace std;
int main(){
int len,lens=INT_MAX,maxrp=0,j,i,n,rp;
int a,b,c;
string maxs,s;
cin>>n;
for (i=1;i>s;
a=b=c=rp=0;
if (s.find("reioxzsj")!=string::npos){
len=s.size();
for (j=0;jmaxrp||(len -
0
daishanjia LV 3 @ 2008-10-02 08:41:05
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 0ms
├ 测试数据 10：答案正确... 0ms
├ 测试数据 11：答案正确... 0ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 41ms
├ 测试数据 16：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 0ms
├ 测试数据 20：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：95 有效耗时：41ms
第16个点是什么啊 -
0
fengye61yi LV 8 @ 2008-10-01 20:25:51
那出题者语文水平咋样，也就是他咋理解这题
-
0
我既没有Rp，也不是牛。。有效得分：100 有效耗时：0ms
var
n,bestrp,srp,i:longint;
s,bests:ansistring;function rp(s:ansistring):longint;
var
i,l,p:longint;
begin
l:=length(s);
rp:=0;
for i:=1 to l do
if (s[i]='r')or(s[i]='p') then inc(rp,5);
for i:=1 to l-1 do
if (s[i]='p')and(s='r') then inc(rp,20);
while pos('woc',s)0 do
begin
p:=pos('woc',s);
inc(rp,5);
delete(s,p,3);
end;
end;begin
readln(n);
readln(s);
bests:=s;
bestrp:=rp(s);
for i:=2 to n do
begin
readln(s);
if pos('reioxzsj',s)=0 then continue;
srp:=rp(s);
if srp>bestrp then
begin
bestrp:=srp;
bests:=s;
end
else if(srp=bestrp)and(length(s) -
0
5568478001 LV 3 @ 2008-10-01 15:30:25
var total,sump,sumr,sumpr,rpcow,n:integer;max,sumtol:longint;
a:array[1..3000] of ansistring;
procedure init;
var i,j,aa:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[total]);
aa:=pos('reioxzsj',a[total]);
if aa0 then
begin
while aa0 do
begin
aa:=pos('woc',a[total]);
if aa0 then begin
a[total][aa]:='d';
a[total][aa+1]:='r';
a[total][aa+2]:='i';
for j:=length(a[total]) downto aa+3 do
a[total][j+1]:=a[total][j];
a[total][j]:='b';
end;
end;
total:=total+1;
end
else
continue;
end;
end;procedure cal;
var i,j:integer;
begin
for i:=1 to total-1 do
begin
for j:=1 to length(a[i]) do
if a[i][j]='p' then
begin
sump:=sump+1;
if a[i][j+1]='r' then sumpr:=sumpr+1;
end
else if
a[i][j]='r' then sumr:=sumr+1;
sumtol:=sumr*5+sump*5+sumpr*20;
sump:=0;sumr:=0;sumpr:=0;
if sumtol>max then
begin
max:=sumtol;
rpcow:=i;
end
else if sumtol=max then
begin
if length(a[rpcow]) -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 25ms
├ 测试数据 03：答案正确... 72ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案正确... 9ms
├ 测试数据 10：答案正确... 25ms
├ 测试数据 11：答案正确... 41ms
├ 测试数据 12：答案正确... 0ms
├ 测试数据 13：答案正确... 0ms
├ 测试数据 14：答案正确... 0ms
├ 测试数据 15：答案正确... 41ms
├ 测试数据 16：答案正确... 0ms
├ 测试数据 17：答案正确... 0ms
├ 测试数据 18：答案正确... 0ms
├ 测试数据 19：答案正确... 41ms
├ 测试数据 20：答案正确... 572ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：826ms最普通的搜索和判断，时间有点慢
纪念AC65题
-
0
sixhomeland LV 9 @ 2008-10-01 15:13:56
啊啊啊啊啊
判断语句居然写错了，调了大半天，5555555555
啊啊啊啊啊rp啊
塔罗牌杀手
LV 8
@ 2008-10-02 17:37:37
