128 条题解
-
0
WSC.exe LV 5 @ 2008-11-11 10:25:21
哎……交了三次才AC~~~`
第一次没考虑到要找尽可能少的重叠部分才能使接龙更长
第二次没考虑到单词后面可以接自身（最初我甚至直接排除了这种情况）我的第一道深搜，总体感觉还是不错吧
-
0
type arr=array [1..20] of longint;
var i,j,n,max:longint;
st:array [1..20] of string;
a:arr;
h:char;
l:string;procedure make(k:longint;l:string);
var i,j,l1,l2:longint;
s1,s2,s3:string;
begin
l1:=length(st[k]);
for i:=1 to n do
if a[i]=l2 then
for j:=1 to l2-1 do
begin
s1:=copy(st[i],1,j);
s2:=copy(st[k],l1-j+1,j);
if s1=s2 then
begin
s3:=copy(st[i],j+1,l2);inc(a[i]);
l:=l+s3;if length(l)>max then max:=length(l);
make(i,l);
dec(a[i]);
delete(l,length(l)-length(s3)+1,length(s3));
break;
end;
end
else for j:=1 to l1-1 do
begin
s1:=copy(st[k],l1-j+1,j);
s2:=copy(st[i],1,j);
if s1=s2 then
begin
s3:=copy(st[i],j+1,l2);inc(a[i]);
l:=l+s3;if length(l)>max then max:=length(l);
make(i,l);
dec(a[i]);
delete(l,length(l)-length(s3)+1,length(s3));
break;
end;
end;
end;
end;begin
readln(n);
for i:=1 to n do readln(st[i]);
readln(h);max:=0;
for i:=1 to n do
begin
for j:=1 to n do a[i]:=0;
l:='';
if st[i][1]=h then
begin
l:=st[i];
inc(a[i]);
make(i,l);
end;
end;
writeln(max);
end.Which big cow can tell me the wrong with it?
I can't pass the fourth point?
(-_-)`\` -
0
zltchenhana LV 3 @ 2008-11-06 11:38:28
设 G表示第I个单词连到J上增加的长度
若为零则无法连接；然后深搜即可。
procedure try(last,len:integer);
var
i:integer;
begin
if len>ans then ans:=len;
for i:=1 to n do
if (g[last,i]0) and (used[i] -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msprogram p1311;
type kao=array [1..20]of integer;
var max,js,i,j,k,l,n:longint;
s:array [1..20]of string;
f:kao;
c:char;
procedure dg(cc:string;f:kao);
var i,j,k,l:longint;
begin
for i:=1 to n do
begin
if (f[i]=0) then
for j:=1 to length(s[i]) do
if (pos(copy(cc,length(cc)-j+1,j),s[i])=1)and(jlength(s[i])) then
begin
inc(f[i]);
js:=js+length(s[i])-j;
if js>max then max:=js;
dg(s[i],f);
js:=js-length(s[i])+j;
dec(f[i]);
break;
end;
end;
end;
begin
readln(n);
for i:=1 to n do readln(s[i]);
readln(c);
js:=1;
dg(c,f);
writeln(max);
end.
一次AC，很高兴。 -
0
编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0msFlag Accepted
题号 P1311
类型(?) 搜索
通过 1000人
提交 1969次
通过率 51%
难度 1好幸运！
大家注意两个单词连接时中间合并的部分尽量短，如
ABABABAB
ABABABC
应该合成 ABABABABABABC 而不是 ABC -
0
iNeverKnow LV 3 @ 2008-10-14 11:36:13
是一个DFS+字符串操作，主要的两个函数如下（C语言）：
int check(int a,int b)
{
int lena=strlen(str[a]);
int lenb=strlen(str);
int max=(lena
WSC.exe
LV 5
@ 2008-11-11 10:25:21
信息
- ID
- 1311
- 难度
- 5
- 分类
- 搜索 点击显示
- 标签
- 递交数
- 3155
- 已通过
- 1011
- 通过率
- 32%
- 被复制
- 15
- 上传者
-
ChildHeart
