洛谷 P1019 单词接龙

最新推荐文章于 2024-11-22 16:47:16 发布

hehe_54321

最新推荐文章于 2024-11-22 16:47:16 发布

阅读量485

点赞数

分类专栏：字符串处理搜索文章标签：字符串处理搜索

本文链接：https://blog.youkuaiyun.com/hehe_54321/article/details/75048837

版权

搜索同时被 2 个专栏收录

2 篇文章

订阅专栏

字符串处理

1 篇文章

订阅专栏

本文介绍了一个名为P1019的单词接龙问题，并提供了一种使用深度优先搜索（DFS）算法求解最长单词串的解决方案。通过定义一系列辅助函数和过程，该方案能够有效地处理字符串匹配并找到最优解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

P1019 单词接龙

var a:array[1..21] of string;  b:array[1..21] of integer;
i,n,x,max:longint;   ch:char;

function min(a,b:longint):longint;
begin
  if a>b then exit(b) else exit(a);
end;

function f(a,b:string):string;
var l1,l2,i,k:longint;  s1,s2:string;
begin
  l1:=length(a);
  l2:=length(b);
  f:='';
  for i:=1 to min(l1,l2) do
  begin
    s1:=copy(a,l1-i+1,i);
    s2:=copy(b,1,i);
    if s1=s2
      then exit(copy(a,1,l1-i)+b);
  end;
end;


procedure dfs(s,s2:string);
var s1:string;i,ans1:longint;
begin
  for i:=1 to n do
  begin
    if ((pos(a[i],s2)>0) or (pos(s2,a[i])>0)) and (s2<>a[i])
      then continue;
    if (b[i]<2)
      then
      begin
        s1:=f(s,a[i]);
        if s1<>''
          then
          begin
            inc(b[i]);
            ans1:=length(s1);
            if ans1>max
              then max:=ans1;
            dfs(s1,a[i]);
            dec(b[i]);
          end;
      end;
  end;
end;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  readln(ch);
  //writeln(f('aba','aa'));
  for i:=1 to n do
    if a[i][1]=ch
      then
      begin
        //max:=length(a[i]);
        inc(b[i]);
        dfs(a[i],a[i]);
        dec(b[i]);
      end;
  writeln(max);
end.