到一个不同的颜色珠子，在另一端做同样的事。(颜色可能与在这之前收集的不同) 确定应该在哪里打破项链来收集到最大多数的数目的子。 Exampl e 举例来说，在图片 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 var
n,m:integer; s:string;
t,max:integer;
function cut():integer; var
i,j:integer; c:char; st:string; begin
st:=copy(s,m,n-m+1)+copy(s,1,m-1); i:=1;
while st[i]='w' do begin
i:=i+1; end;
c:=st[i];
for i:=1 to n do begin
if (st[i]<>c) and (st[i]<>'w') then begin
break; end; end; j:=n;
while st[j]='w' do begin
j:=j-1; end;
c:=st[j];
for j:=n downto 1 do begin
if (st[j]<>c) and (st[j]<>'w') then begin
break;
end; end;
cut:=i+n-j-1; end;
begin
assign(input,'beads.in'); assign(output,'beads.out'); reset(input); rewrite(output); readln(n); readln(s); max:=0;
for m:=1 to n do begin