记录编号 4701 评测结果 AAAAAAAAAA
题目名称 [LOL2000] 回文词 最终得分 100
用户昵称 Gravatarelysian 是否通过 通过
代码语言 Pascal 运行时间 2.983 s
提交时间 2008-10-22 13:05:02 内存使用 0.17 MiB
显示代码纯文本
program elysian;
const
fin='palin.in';fout='palin.out';
var
f:array[0..5000,0..2] of longint;
n,last:longint;
s:array[0..5000] of char;
f1,f2:text;

procedure init;
var
i:integer;
begin
assign(f1,fin);reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,s[i]);
close(f1);
end;

function min(a,b:longint):longint;
begin
if a<=b then min:=a else min:=b;
end;

procedure main;
var
i,j:longint;
begin
for j:=2 to n do
for i:=1 to n-j+1 do
begin
if s[i]=s[i+j-1] then f[i,2]:=f[i+1,0]
else f[i,2]:=min(f[i,1],f[i+1,1])+1;
f[i,0]:=f[i,1];
f[i,1]:=f[i,2];
f[i,2]:=0;
end;

end;



begin
init;
main;
assign(f2,fout);rewrite(f2);
writeln(f2,f[1,1]);
close(f2);
end.