CodeVS 1018-单词接龙

Posted 2020-08-28 HAdolf

原题

题目描述 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-单词接龙

 

 

 

 

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