洛谷 P1019 单词接龙

题目描述

单词接龙是一个与我们经常玩的成语接龙相类似的游戏，现在我们已知一组单词，且给定一个开头的字母，要求出以这个字母开头的最长的“龙”（每个单词都最多在“龙”中出现两次），在两个单词相连时，其重合部分合为一部分，例如 beast和astonish，如果接成一条龙则变为beastonish，另外相邻的两部分不能存在包含关系，例如at 和 atide 间不能相连。

输入输出格式

输入格式：
输入的第一行为一个单独的整数n (n<=20)表示单词数，以下n 行每行有一个单词，输入的最后一行为一个单个字符，表示“龙”开头的字母。你可以假定以此字母开头的“龙”一定存在.

输出格式：
只需输出以此字母开头的最长的“龙”的长度

输入输出样例

输入样例#1：
5
at
touch
cheat
choose
tact
a
输出样例#1：
23 （连成的“龙”为atoucheatactactouchoose）
说明

NOIp2000提高组第三题
dfs:
1.每个单词可以用2次。
2.注意找重合部分。
3.开头必须是一个单词。

var
    a:Array [0..21] of string;
    b:array [0..21] of longint;
    i,j,n:longint;
    ask,ans:string;

function hc(aa,bb:string):longint;
var
   i,o:longint;
begin
     if length(aa)>length(bb) then o:=length(bb)
                              else o:=length(aa);
     for i:=1 to o do
         if (copy(aa,length(aa)-i+1,i)=copy(bb,1,i)) and (length(bb)<>i) then
            exit(i);
end;

procedure dfs(now:string);
var
   i:longint;
   s:string;
begin
     if length(now)>length(ans) then ans:=now;
     for i:=1 to n do
         if b[i]<>0 then
                 if hc(now,a[i])<>0 then
                    begin
                        dec(b[i]);
                        s:=a[i];
                        delete(s,1,hc(now,a[i]));
                        dfs(now+s);
                        s:='';
                        inc(b[i]);
                    end;
end;

begin
    readln(n);
    ans:='';
    for i:=1 to n do readln(a[i]);
    readln(ask);
    for i:=1 to n do
        if ask=copy(a[i],1,1) then
           begin
               for j:=1 to n do b[j]:=2;
               b[i]:=b[i]-1;
               dfs(a[i]);
           end;
    writeln(length(ans));
end.