记录编号 |
4701 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[LOL2000] 回文词 |
最终得分 |
100 |
用户昵称 |
elysian |
是否通过 |
通过 |
代码语言 |
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.