首页 > 代码库 > CodeVS 1018-单词接龙
CodeVS 1018-单词接龙
原题
题目描述 Description
单词接龙是一个与我们经常玩的成语接龙相类似的游戏，现在我们已知一组单词，且给定一个开头的字母，要求出以这个字母开头的最长的“龙”（每个单词都最多在“龙”中出现两次），在两个单词相连时，其重合部分合为一部分，例如beast和astonish，如果接成一条龙则变为beastonish，另外相邻的两部分不能存在包含关系，例如at和atide间不能相连。
输入描述 Input Description
输入的第一行为一个单独的整数n(n<=20)表示单词数，以下n行每行有一个单词，输入的最后一行为一个单个字符，表示“龙”开头的字母。你可以假定以此字母开头的“龙”一定存在。
输出描述 Output Description
只需输出以此字母开头的最长的“龙”的长度。
样例输入 Sample Input
5
at
touch
cheat
choose
tact
a
样例输出 Sample Output
23
数据范围及提示 Data Size & Hint
（连成的“龙”为atoucheatactactouchoose）
题意
给出n个字符串，如果字符串i的后缀与字符串j的前缀相同则两个字符串可以连接成一个新的长度为(length(i)+length(j)-length(后缀/前缀))的字符串(i,j不存在包含关系)，求n个字符串所能接成的最长字符串的长度(每个字符串最多使用两次)。
题解
这道题不用看就是dfs。
首先读入的n个字符串分别为ss[i]，接着读入一个长度为1的字符串c。同时定义一个数组b[i]用来计算第i个字符串的使用次数，必定<=2。
接着就dfs(c)，运用回溯法，得出最优解ans。
代码：
1 uses math;
2 var t,ans,n,i,k:longint;
3 var c:string;
4 var ss:array[1..20] of string;//字符数组
5 var b:array[1..20] of longint;//统计使用次数
6 procedure dfs(s:string);//s表示当前拼接来的字符串
7 var i,j:longint;
8 begin
9 for i:=1 to n do if b[i]<2 then//由于b[i]<=2，而当前的b[i]一旦为2，插入ss[i]后便会造成b[i]=3的情况，所以在这个关口b[i]必须<=1
10 begin
11 k:=min(length(s),length(ss[i]));//找出长度较小的一个字符串，效率++
12 for j:=1 to k do//枚举可能出现的所有情况
13 begin
14 if copy(ss[i],1,j)=copy(s,length(s)-j+1,j) then//后缀=前缀就拼接
15 begin
16 t:=t+length(ss[i])-j;//新字符串长度
17 if ans<t then ans:=t;//更新答案
18 inc(b[i]);//次数+1
19 dfs(ss[i]);//深搜
20 dec(b[i]);//回溯
21 t:=t-length(ss[i])+j;//回溯
22 end;
23 end;
24 end;
25 end;
26 begin
27 readln(n);
28 t:=1;//长度初始值为length(c)
29 for i:=1 to n do readln(ss[i]);
30 readln(c);
31 dfs(c);
32 writeln(ans);
33 end.
欢迎转载，若转载请注明出处。
CodeVS 1018-单词接龙
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。