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.