118 条题解
-
0
香蕉派 LV 9 @ 2009-11-03 10:21:05
....我想不出来诶。为什么有一样的单词会有影响啊，预处理的时候不是就算有两个单词一样也可以无视掉吗。？
-
0
好丑的时间......细节题，细节题！
刚才发现有个叫gcc的不停的在交p1000
害我等了半天才看到结果....
---|---|---|---|---|---|---|---|---|---|-
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 181ms
├ 测试数据 04：答案正确... 369ms
├ 测试数据 05：答案正确... 509ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：1059ms -
0
shenyanghua LV 8 @ 2009-10-21 07:41:22
某神牛说此题数据只要预处理就可拿60分？
第三个点Cheat了。。。
问下第三个点输出195的原因？我已经把重复的单词去掉了啊（这样第四个点过了） -
0
var
i,j,p,k,max,t,n,q:longint;
s,st,l:string;
a:array[0..2000] of longint;
list:array[0..500] of string;
g,f:array[0..1000,0..1000] of longint;
begin
assign(input,'wordnum.in');reset(input);
assign(output,'wordnum.out');rewrite(output);
readln(p,k);
for i:=1 to p do
begin
readln(st);
s:=s+st;
end;
n:=20*p;
readln(t);
for i:=1 to t do
readln(list[i]);
for i:=1 to t-1 do
for j:=2 to t do
if length(list[i])>length(list[j]) then
begin
l:=list[j];
list[j]:=list[i];
list[i]:=l;
end;
for i:=1 to n do
begin
a[i]:=n+1;
for j:=1 to t do
if copy(s,i,length(list[j]))=list[j] then
begin
a[i]:=i+length(list[j])-1;
break;
end;
end;
fillchar(g,sizeof(g),0);
for i:=1 to n do
for j:=i to n do
for q:=i to j do
if a[q] -
0
song19931218 LV 9 @ 2009-10-05 19:35:39
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 41ms
├ 测试数据 05：答案正确... 72ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：113ms
虽然没有秒杀，但是一次ac，还是很高兴 -
0
veryguo614 LV 8 @ 2009-10-04 18:01:12
program mm;
var
a,f:array[0..200,0..200] of longint;
i,j,k,l,m,n,o,p:longint;
s,s1:string;
b:array[0..100] of string;
begin
fillchar(f,sizeof(f),0);
readln(l,k);
for i:=1 to l do begin
readln(s1);
s:=s+s1;
end;
readln(m);
for i:=1 to m do
readln(b[i]);
n:=length(s);
for i:=1 to n do
for j:=i to n do
for l:=i to j do begin
for o:=1 to m do
if (b[o][1]=s[l]) and (length(b[o])f then f:=f[p,j-1]+a[p+1,i];
writeln(f[n,k]); }
end. -
0
香蕉派
LV 9
@ 2009-11-03 10:21:05
