[USACO1.1]坏掉的项链Broken Necklace

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

第一和第二个珠子在图片中已经被作记号。

图片 A 中的项链可以用下面的字符串表示：

brbrrrbbbrrrrrbrrbbrbbbbrrrrb

假如你要在一些点打破项链,展开成一条直线，然后从一端开始收集同颜色的珠子直到你遇到一个不同的颜色珠子，在另一端做同样的事(颜色可能与在这之前收集的不同)。 确定应该在哪里打破项链来收集到最大数目的珠子。

例如，在图片 A 中的项链中，在珠子 9 和珠子 10 或珠子 24 和珠子 25 之间打断项链可以收集到8个珠子。

白色珠子什么意思?

在一些项链中还包括白色的珠子(如图片B) 所示。

当收集珠子的时候，一个被遇到的白色珠子可以被当做红色也可以被当做蓝色。

表现含有白珠项链的字符串将会包括三个符号 r ， b 和 w 。

写一个程序来确定从一条被给出的项链可以收集到的珠子最大数目。

输入输出格式
输入格式：
第 1 行: N, 珠子的数目

第 2 行: 一串长度为N的字符串, 每个字符是 r ， b 或 w。

输出格式：
输出一行一个整数，表示从给出的项链中可以收集到的珠子的最大数量。

输入输出样例
输入样例： 
29 
wwwbbrwrbrbrrbrbrwrwwrbwrwrrb
输出样例：
11

思路：
看一眼数据，嗯，很小，所以考虑朴素算法（暴力枚举）

枚举每一个项链的间隔向两边枚举，建一个数组记录是否被选中

var
 c:ansistring;
 cl,cr:array[0..351]of longint;
 i,j,n,s,t,l1,r1,sum1,sum2,max:longint;
 mark:char;
begin
 readln(n);
 readln(c);

 for i:=1 to n do
   begin
     fillchar(cl,sizeof(cl),0);
     fillchar(cr,sizeof(cr),0);
     if max<(sum1+sum2) then max:=sum1+sum2;
     sum1:=0; sum2:=0;

     j:=i; mark:=c[j];
     while cl[j]<>1 do
       begin
         if j<=0 then j:=n;
         //if (mark<>c[j])and(c[j]='w')or(cl[j]=1)or(mark='w') then break;
         if (mark<>c[j])and(mark<>'w')and(c[j]<>'w') then break;
         if (mark='w')and(c[j]<>'w') then mark:=c[j];
         if cl[j]=1 then break;
         cl[j]:=1;
         sum1:=sum1+1;
         dec(j);
       end;

     j:=i+1; if j>n then j:=j-n; mark:=c[j];
     while cr[j]<>1 do
       begin
         if j>n then j:=j-n;
         //if (mark<>c[j])or(c[j]='w')or(cl[j]=1)or(mark='w') then break;
         if (mark<>c[j])and(mark<>'w')and(c[j]<>'w') then break;
         if (mark='w')and(c[j]<>'w') then mark:=c[j];
         if cl[j]=1 then break;
         cl[j]:=1;
         sum2:=sum2+1;
         inc(j);
       end;
   end;
 write(max);
end.