题目描述
回文词是一种对称的字符串。任意给定一个字符串,通过插入若干字符,都可以变成回文词。此题的任务是,求出将给定字符串变成回文词所需要插入的最少字符数。
比如 “Ab3bd”插入2个字符后可以变成回文词“dAb3bAd”或“Adb3bdA”,但是插入少于2个的字符无法变成回文词。
注:此问题区分大小写
输入输出格式
输入格式:
一个字符串(0<strlen<=1000)
输出格式:
有且只有一个整数,即最少插入字符数
输入输出样例
输入样例#1:
Ab3bd
输出样例#1:
2
划水!
var
i,j,k,t:longint;
s,s1:ansistring;
f:array[0..1000,0..1000]of longint;
function max(x,y:longint):longint;
begin
if x<y then exit(y);
exit(x);
end;
begin
readln(s);
fillchar(f,sizeof(f),0);
for i:=length(s) downto 1 do
s1:=s1+s[i];
for i:=1 to length(s) do
for j:=1 to length(s) do
begin
if s[i]=s1[j] then f[i,j]:=f[i-1,j-1]+1
else f[i,j]:=max(f[i-1,j],f[i,j-1]);
end;
writeln(length(s)-f[length(s),length(s)]);
end.
i,j,k,t:longint;
s,s1:ansistring;
f:array[0..1000,0..1000]of longint;
function max(x,y:longint):longint;
begin
if x<y then exit(y);
exit(x);
end;
begin
readln(s);
fillchar(f,sizeof(f),0);
for i:=length(s) downto 1 do
s1:=s1+s[i];
for i:=1 to length(s) do
for j:=1 to length(s) do
begin
if s[i]=s1[j] then f[i,j]:=f[i-1,j-1]+1
else f[i,j]:=max(f[i-1,j],f[i,j-1]);
end;
writeln(length(s)-f[length(s),length(s)]);
end.