算法习题及解答

到一个不同的颜色珠子，在另一端做同样的事。(颜色可能与在这之前收集的不同) 确定应该在哪里打破项链来收集到最大多数的数目的子。 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

t:=cut(); if max