Broken Necklace破碎的项链

 Broken Necklace破碎的项链

你有一条由 N 个红色的,白色的,或蓝色的珠子组成的项链(3<=N<=350),珠子是随意安排的. 这里是 n=29 的二个例子: 

                  
                          r 代表 红色的珠子      
                     b 代表 蓝色的珠子   
                     w 代表 白色的珠子
第一和第二个珠子在图片中已经被作记号. 
图片 A 中的项链可以用下面的字符串表示: 
brbrrrbbbrrrrrbrrbbrbbbbrrrrb . 
假如你要在一些点打破项链,展开成一条直线,然后从一端开始收集同颜色的珠子直到你遇到一个不同的颜色珠子,在另一端做同样的事.(颜色可能与在这之前收集的不同) 确定应该在哪里打破项链来收集到最大多数的数目的子. Example 举例来说,在图片 A 中的项链,可以收集到 8 个珠子,
在珠子 9 和珠子 10 或珠子 24 和珠子 25 之间打断项链. 在一些项链中,包括白色的珠子如图片 B 所示. 当收集珠子的时候,一个被遇到的白色珠子可以被当做红色也可以被当做蓝色. 表现项链的字符串将会包括三符号 r , b 和 w . 写一个程序来确定从一条被供应的项链最大可以被收集珠子数目. 

PROGRAM NAME: beads
INPUT FORMAT 
第 1 行:   N, 珠子的数目 
第 2 行:   一串度为 N 的字符串, 每个字符是 r , b 或 w. 

SAMPLE INPUT (file beads.in) 
29 
wwwbbrwrbrbrrbrbrwrwwrbwrwrrb 

OUTPUT FORMAT 
单独的一行包含从被供应的项链可以被收集的珠子数目的最大值. 

SAMPLE OUTPUT (file beads.out) 
11

 

========================

化成2倍长度...

=============

{
ID:jie19952
PROG:beads
LANG:PASCAL
}
var
  n:longint;
  bead:array[1..700]of char;
procedure init;
begin
  assign(input,'beads.in');
  assign(output,'beads.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  ans:longint;
  l,r:longint;
  l_c,r_c:char;
  i,j,k:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(bead[i]);
      bead[i+n]:=bead[i];
    end;
  ans:=0;
  for i:=1 to n do
    begin
      l:=0; r:=0;
      l_c:='w'; r_c:='w';
      
      for j:=i-1 downto 1 do
        begin
          if bead[j]='w' then inc(l)
          else begin
                 if (l_c='w')or(l_c=bead[j]) then
                   begin
                     l_c:=bead[j];
                     inc(l);
                   end
                   else
                     begin
                       break;
                     end;
               end;
        end;
      k:=i-j+1;
        
      for j:=i to i+n-k do
        begin
          if bead[j]='w' then inc(r)
          else begin
                 if (r_c='w')or(r_c=bead[j]) then
                   begin
                     r_c:=bead[j];
                     inc(r);
                   end
                   else
                     begin
                       break;
                     end;
               end;
        end;
      if l+r>ans then ans:=l+r;
    end;
  writeln(ans);
end;

begin
  init;
  main;
  terminate;
end.