首页 > 代码库 > 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-单词接龙

 

 

 

 

欢迎转载,若转载请注明出处。

 

CodeVS 1018-单词接龙