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。

代码：

uses math;
var t,ans,n,i,k:longint;
var c:string;
var ss:array[1..20] of string;//字符数组
var b:array[1..20] of longint;//统计使用次数
procedure dfs(s:string);//s表示当前拼接来的字符串
var i,j:longint;
begin         
  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
  begin
    k:=min(length(s),length(ss[i]));//找出长度较小的一个字符串，效率++
    for j:=1 to k do//枚举可能出现的所有情况
    begin
      if copy(ss[i],1,j)=copy(s,length(s)-j+1,j) then//后缀=前缀就拼接
      begin
        t:=t+length(ss[i])-j;//新字符串长度
        if ans<t then ans:=t;//更新答案
        inc(b[i]);//次数+1
        dfs(ss[i]);//深搜
        dec(b[i]);//回溯
        t:=t-length(ss[i])+j;//回溯
      end;
    end;
  end;
end;
begin
  readln(n);
  t:=1;//长度初始值为length(c)
  for i:=1 to n do readln(ss[i]);
  readln(c);
  dfs(c);
  writeln(ans);
end.

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