USACO 1.1 破碎的项链(模拟)

Description

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

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

第 1 行: N, 珠子的数目
第 2 行: 一串度为N的字符串, 每个字符是 r ， b 或 w。

Output

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

Sample Input

29
wwwbbrwrbrbrrbrbrwrwwrbwrwrrb
Sample Output

11

题解：

枚举打破项链的地方，模拟。

代码：

var
  i,j,max,m,n,l,r,a,b:integer;
  s0,s:array[0..400]of char;
function num(k,m:integer):integer;
var
  x,y,h:integer;
begin
  num:=0;
  while s[k]='w' do
    begin
      inc(num);
      if num=n then exit(n);
      k:=(k+m) mod n;
      if k=0 then k:=n;
    end;
  repeat
    inc(num);
    h:=k;
    k:=(k+m) mod n;
    if k=0 then k:=n;
    if s[k]='w' then
      s[k]:=s[h];
  until (s[k]<>s[h])or(num=n);
  if num=n then exit(n);
end;
begin
  readln(n);
  for i:=1 to n do
    read(s0[i]);
  for i:=1 to n do
    begin
      s:=s0;
      l:=i-1;
      r:=i;
      if l=0 then l:=n;
      a:=num(l,-1);
      if a<n then b:=num(r,1);
      if a+b>max then max:=a+b;
      if max=n then break;
    end;
  writeln(max);
end.