JZOJ1248.【USACO题库】1.3.3 Calf Flac

题目描述

据说如果你给无限只母牛和无限台巨型便携式电脑(有非常大的键盘),那么母牛们会制造出世上最棒的回文。

你的工作就是去这些牛制造的奇观(最棒的回文)。

在寻找回文时不用理睬那些标点符号、空格(但应该保留下来以便做为答案输出),只用考虑字母’A’-‘Z’和’a’-‘z’。

要你寻找的最长的回文的文章是一个不超过20,000个字符的字符串。

我们将保证最长的回文不会超过2,000个字符(在除去标点符号、空格之前)。

PROGRAM NAME: calfflac

INPUT FORMAT

一个不超过20,000个字符的文件。

SAMPLE INPUT (file calfflac.in)

Confucius say: Madam, I’m Adam.

OUTPUT FORMAT

输出的第一行应该包括找到的最长的回文的长度。

下一个行或几行应该包括这个回文的原文(没有除去标点符号、空格),

把这个回文输出到一行或多行(如果回文中包括换行符)。

如果有多个回文长度都等于最大值,输出那个前出现的。

SAMPLE OUTPUT (file calfflac.out)

11

Madam, I’m Adam

输入

输出

样例输入

样例输出

数据范围限制

思路：
这道题在usaco第一部分和the clock那道题都很经典
（the clocks→http://blog.youkuaiyun.com/enjoy_pascal/article/details/71760222）

这题，有一个巨大的大坑
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

一个不超过20,000个字符的文件。

就是这个东西，这道题读入的字符串，一行一行读入
哦，对了，还有，原串在哪里换行，回文串也换行
smg？WTF？

解决这两个问题，好做
读入，eof，读入时每行末尾搞一个‘/’标记
回文串输出时遇到一个‘/’就换行

然后不就简单了？
判断奇回文和偶回文
不是字母跳过，是就判断大写是否相等
直接暴力乱搞A掉

代码

var
        i,len,l,r,ans:longint;
        s,st:ansistring;
procedure doit(x,y:longint);
var
        t,ll,rr:longint;
begin
        if x=y then t:=1
        else t:=0;
        while(x<>1)and(y<>len) do
        begin
                inc(t,2);
                ll:=x;
                rr:=y;
                dec(x);
                inc(y);
                while (x>1)and(not(s[x]in['a'..'z','A'..'Z']))do dec(x);
                while (y<len)and(not(s[y]in['a'..'z','A'..'Z']))do inc(y);
                if upcase(s[x])<>upcase(s[y])then break;
        end;
        if (ll=2) then
        begin
                inc(t,2);
                dec(ll);
                inc(rr);
        end;
        if t-2>ans then
        begin
                l:=ll;
                r:=rr;
                ans:=t-2;
        end;
end;
begin
        while not eof do
        begin
                readln(st);
                if st='' then break;
                s:=s+st+'/';
        end;
        len:=length(s);
        for i:=1 to len do
        begin
                if s[i]in['a'..'z','A'..'Z']then doit(i,i);
                if i<len then doit(i+1,i);
        end;
        writeln(ans);
        for i:=l to r do
        if s[i]='/' then writeln
        else write(s[i]);
end.