描述
你有一条由N个红色的，白色的，或蓝色的珠子组成的项链(3<=N<=350)，珠子是随意安排的。 这里是 n=29 的二个例子:
1 2 1 2
r b b r b r r b
r b b b
r r b r
r r w r
b r w w
b b r r
b b b b
b b r b
r r b r
b r r r
b r r r
r r r b
r b r r r w
图片 A 图片 B
r 代表 红色的珠子
b 代表 蓝色的珠子
w 代表 白色的珠子
第一和第二个珠子在图片中已经被作记号。
图片 A 中的项链可以用下面的字符串表示：
brbrrrbbbrrrrrbrrbbrbbbbrrrrb .
假如你要在某点打破项链,展开成一条直线，然后从一端开始收集同颜色的珠子直到你遇到一个不同的颜色珠子，在另一端做同样的事。(颜色可能与在这之前收集的不同) 确定应该在哪里打破项链来收集到最大数目的珠子。
Example 举例来说，在图片 A 中的项链，可以收集到8个珠子,在珠子 9 和珠子 10 或珠子 24 和珠子 25 之间打断项链。 在一些项链中，包括白色的珠子如图片 B 所示。 当收集珠子的时候，一个被遇到的白色珠子可以被当做红色也可以被当做蓝色。 表现项链的字符串将会包括三符号 r ， b 和 w 。 写一个程序来确定从一条被供应的项链最大可以被收集珠子数目。
格式
PROGRAM NAME: beads
INPUT FORMAT:
(file beads.in)
第 1 行: N, 珠子的数目
第 2 行: 一串度为N的字符串, 每个字符是 r ， b 或 w。
OUTPUT FORMAT:
(file beads.out)
单独的一行包含从被供应的项链可以被收集的珠子数目的最大值。
SAMPLE INPUT
29
wwwbbrwrbrbrrbrbrwrwwrbwrwrrb
SAMPLE OUTPUT
11
输出解释
考虑两段项链（能组成一圈的）。11个珠子已经标注了。
{
ID:cxj6661
PROB:beads
LANG:PASCAL
}
Program beads;
Const
inf='beads.in';
ouf='beads.out';
Var
rl,rr,bl,br:array[1..700]of integer;
s:array[1..700]of char;
str:string;
i,j,n,max:longint;
begin
assign(input,inf); reset(input);
assign(output,ouf); rewrite(output);
fillchar(rl,sizeof(rl),0);
fillchar(rr,sizeof(rr),0);
fillchar(bl,sizeof(bl),0);
fillchar(br,sizeof(br),0);
readln(n);
for i:=1 to n do
read(s[i]);
for i:=n+1 to n<<1 do
begin
s[i]:=s[i-n];
end;
close(input);
for i:=2 to n<<1-1 do
begin
if s[i-1]<>'b' then rl[i]:=rl[i-1]+1 else rl[i]:=0;
if s[i-1]<>'r' then bl[i]:=bl[i-1]+1 else bl[i]:=0;
end;
for i:=n<<1-1 downto 1 do
begin
if s[i+1]<>'b' then rr[i]:=rr[i+1]+1 else rr[i]:=0;
if s[i+1]<>'r' then br[i]:=br[i+1]+1 else br[i]:=0;
end;
max:=2;
for i:=2 to n<<1-1 do
begin
if rr[i]>=n then rr[i]:=n-1;
if bl[i]>=n then bl[i]:=n-1;
if br[i]>=n then br[i]:=n-1;
if rl[i]>=n then rl[i]:=n-1;
if rr[i]+bl[i]>max then max:=rr[i]+bl[i];
if br[i]+rl[i]>max then max:=br[i]+rl[i];
end;
if max+1<=n then writeln(max+1) else writeln(n);
close(output);
end.