题目描述

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

AC代码

var
st:array[1..20]of string;
n,ans,i:longint;
vis:array[1..20]of longint;

function max(n,m:longint):longint;
begin
if n>m then exit(n) else exit(m);
end;

function min(n,m:longint):longint;
begin
if n<m then exit(n) else exit(m);
end;

function cover(st1,st2:string):longint;
var
i,j:longint;
fg:boolean;
begin
for i:=1 to min(length(st1),length(st2))-1 do
begin
fg:=true;
for j:=1 to i do
if st1[length(st1)-i+j]<>st2[j] then fg:=false;
if fg then exit(i);
end;
exit(0);
end;

procedure dfs(s:string;len:longint);
var
i,covernum:longint;
begin
ans:=max(ans,len);
for i:=1 to n do
begin
if vis[i]>=2 then continue;
covernum:=cover(s,st[i]);
if covernum>0 then
begin
inc(vis[i]);
dfs(st[i],len+length(st[i])-covernum);
dec(vis[i]);
end;
end;
end;

begin
fillchar(vis,sizeof(vis),0);
readln(n);
for i:=1 to n+1 do readln(st[i]);
ans:=0;
dfs(' '+st[n+1],1);
writeln(ans);
end.