记录编号	21010	评测结果	AAAAAAAAAA
题目名称	488.奇怪的监狱	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	2.877 s
提交时间	2010-11-02 14:02:29	内存使用	3.94 MiB

program prison;
var
  f:array[0..1000,0..1000]of longint;
  i,j,k,q,p,min,t:longint;
  a:array[1..1000]of longint;
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

begin
  assign (input,'prison.in');
  reset (input);
  assign (output,'prison.out');
  rewrite (output);
    readln (p,q);
    for i:=1 to q do
      read (a[i]);
    sort(1,q);
    for i:=p downto 1 do
      for j:=i to p do
      begin
        min:=maxlongint;
        for k:=1 to q do
        begin
          if a[k]>j then
            break
          else
          begin
            if (a[k]>=i)and(a[k]<=j) then
            begin
              t:=f[i,a[k]-1]+f[a[k]+1,j]+j-i;
              if t<min then
                min:=t
            end
          end
        end;
        if min<>maxlongint then
          f[i,j]:=min;
      end;
    writeln (f[1,p]);
  close (input);
  close (output)
end.