[作业]最短回文串

最短回文串（palindrome.pas/c/cpp）     
  如果一个字符串正过来读和倒过来读是一样的，那么这个字符串就被称作回文串。例如
abcdcba，abcddbca 就是回文串，而 abcdabcd 不是。 
  你要解决的问题是：对于任意一个字符串，输出将这个字符串变为回文串需要插入的最
少字符个数，比如，Ab3bd 只需要插入2 个字符就可以变为一个回文串。 
 
输入数据     
  第一行是一个整数N 
  第二行是一个长度为N 字符串S 
 
输出数据     
  一行一个整数，表示将S 变为回文串需要插入的最小字符个数 
 
样例输入与输出     
5 
Ab3bd 
2 
 
数据范围     

  对于所有数据，0<n<=5000
-------------------------------------------------------------------------------------------------------------------
这个DP比较水，不解释了。。
-------------------------------------------------------------------------------------------------------------------
代码：

var
   n:longint;
   a:array[1..5000] of char;
   f:array[1..5000,1..5000] of longint;
function min(a,b:longint):longint;
begin
     if a<b then exit(a) else exit(b);
end;
procedure main;
var
   s,l,i:longint;
begin
     readln(n);
     for i:=1 to n do begin
         read(a[i]);
         f[i,1]:=0;
     end;
     for l:=2 to n do
     for s:=1 to n-l+1 do begin
         f[s,l]:=min(f[s,l-1],f[s+1,l-1])+1;
         if a[s]=a[s+l-1] then f[s,l]:=min(f[s,l],f[s+1,l-2]);
     end;
     write(f[1,n]);
end;
begin
     assign(input,'palindrome.in');
     assign(output,'palindrome.out');
     reset(input);
     rewrite(output);
     main;
     close(input);
     close(output);
end.