搜索与回溯字符序列

最新推荐文章于 2024-03-10 20:55:27 发布

原创最新推荐文章于 2024-03-10 20:55:27 发布 · 956 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#搜索

本文介绍了一个复杂的字符串序列搜索算法，该算法用于找出所有长度为n的由‘A’‘B’‘C’组成的字符序列，并确保这些序列中不存在相邻且重叠的部分。文章通过具体的示例说明了合法与非法序列的区别，并详细解释了核心检查函数的工作原理。

SSL 1893
题目大意
给出n，求出有多少长度为n由‘A’‘B’‘c’组成的字符序列。
要求：相邻子序列不能重合。
例子：
ABCAB是合法的，AB没有重合。
ABABC和BABAC不是合法的。

const
  b:array[1..3]of char=('A','B','C');
var
  n,s:longint;
  a:array[1..10]of char;
procedure init;
begin
  readln(n);
end;

procedure print;
var
  i:longint;
begin
  for i:=1 to n do write(a[i]);
  writeln;
end;

function check(k:longint):boolean;
var
  i,j,l:longint;
begin
  check:=false;
  for i:=1 to k div 2 do
   begin
     j:=0;
     for l:=1 to i do
      if (a[k-l+1]<>a[k-i-l+1]) then
       inc(j);
     if j=0 then exit(true);
   end;
end;

procedure search(k:longint);
var
  i,j:longint;
begin
  if k>n then begin print;inc(s); end
   else
  for i:=1 to 3 do
   begin
     a[k]:=b[i];
     if k>1 then if check(k) then continue;
     search(k+1);
     a[k]:=' ';
   end;
end;

begin
  init;
  search(1);
  writeln(s);
end.
@Qyh
冒牌标记，谨防某些人copy！