USACO 1.3-Calf Flac

最新推荐文章于 2024-05-15 10:00:00 发布

inspoy

最新推荐文章于 2024-05-15 10:00:00 发布

阅读量337

点赞数

文章标签： output pascal input

本文链接：https://blog.csdn.net/inspoy/article/details/5697586

版权

题目在这里

这道题折腾了我好几天！

先用搜索写了一个代码，结果搜索写sd了，竟然TLE！

只好改写DP。

方程：
f[i]:=f[i-1]+2(a[i]=a[i-f[i-1]-1] )

f[i]:=2(a[i]=a[i-1])

f[i]:=1(else)

代码在此：

{ ID:asdcyt01 PROB:calfflac LANG:PASCAL } var n,i,len,max,maxi:longint; a,source:array[1..20000]of char; f,b:array[1..20000]of longint; begin assign(input,'calfflac.in');reset(input); assign(output,'calfflac.out');rewrite(output); while not eof do begin inc(len); read(source[len]); end; n:=0; for i:=1 to len do if source[i] in ['A'..'Z','a'..'z'] then begin inc(n); a[n]:=source[i]; b[n]:=i; end; fillchar(f,sizeof(f),0); f[1]:=1; for i:=1 to n do if upcase(a[i])=upcase(a[i-f[i-1]-1]) then f[i]:=f[i-1]+2 else if upcase(a[i])=upcase(a[i-1]) then f[i]:=2 else f[i]:=1; for i:=1 to n do if f[i]>max then begin max:=f[i];maxi:=i;end; writeln(max); for i:=b[maxi-max+1]to b[maxi] do write(source[i]); writeln; close(input);close(output); end.