搜索与回溯 字符序列

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！

搜索解。重点在check那个自定义过程里。
扫描有没有相邻且重叠的序列。
很难，主要是check那里的条件很难设置。