一大堆的福利之【USACO题库】Broken Necklace破碎的项链

最新推荐文章于 2024-11-03 21:47:18 发布

原创最新推荐文章于 2024-11-03 21:47:18 发布 · 571 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#Pascal #OJ #福利 #USACO

一道算法题，目标是在一条由红、白、蓝三种颜色珠子组成的项链上找到最佳断点，以便收集到最多的相同颜色珠子。允许将白色珠子视为红色或蓝色。

题目描述

你有一条由N个红色的，白色的，或蓝色的珠子组成的项链(3<=N<=35000)，珠子是随意安排的。这里是 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 。写一个程序来确定从一条被供应的项链最大可以被收集珠子数目。

输入

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

输出

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

样例输入

29

wwwbbrwrbrbrrbrbrwrwwrbwrwrrb

样例输出

var
        n,i,j,s,m:longint;
        c:string;
        f:char;
begin
        readln(n);
        readln(c);
        c:=c+c+c;
        m:=0;
        for i:=n+1 to n+n do
        begin
                s:=2;
                if m>n then
                begin
                        writeln(n);
                        halt;
                end;
                if c[i]='r'then
                begin
                        f:='r';
                end
                else
                begin
                        if c[i]='b'then
                                f:='b'
                        else
                                f:='w';
                end;
                for j:=i-1 downto i-n do
                begin
                        if f='w' then
                        begin
                                f:=c[j];
                                inc(s);
                        end;
                        if(c[j]='w')or(c[j]=f)then
                                inc(s)
                        else
                                break;
                end;
                if c[i+1]='r'then
                        f:='r'
                else
                begin
                        if c[i+1]='b'then
                                f:='b'
                        else
                                f:='w';
                end;
                for j:=i+2 to i+n do
                begin
                        if(f='w')then
                        begin
                                f:=c[j];
                                inc(s);
                        end;
                        if(c[j]='w')or(c[j]=f)then
                                inc(s)
                        else
                                break;
                end;
                if s>m then m:=s;
        end;
        writeln(m);
end.