tyvj P2032 - 「Poetize9」升降梯上

P2032 - 「Poetize9」升降梯上

From lydliyudong    Normal (OI) 总时限：10s    内存限制：128MB

描述 Description

开启了升降梯的动力之后，探险队员们进入了升降梯运行的那条竖直的隧道，映入眼帘的是一条直通塔顶的轨道、一辆停在轨道底部的电梯、和电梯内一杆控制电梯升降的巨大手柄。 Nescafe之塔一共有N层，升降梯在每层都有一个停靠点。手柄有M个控制槽，第i个控制槽旁边标着一个数Ci，满足C1<C2<C3<……<CM。如果Ci>0，表示手柄扳动到该槽时，电梯将上升Ci层；如果Ci<0，表示手柄扳动到该槽时，电梯将下降-Ci层；并且一定存在一个Ci=0，手柄最初就位于此槽中。注意升降梯只能在1~N层间移动，因此扳动到使升降梯移动到1层以下、N层以上的控制槽是不允许的。 电梯每移动一层，需要花费2秒钟时间，而手柄从一个控制槽扳到相邻的槽，需要花费1秒钟时间。探险队员现在在1层，并且想尽快到达N层，他们想知道从1层到N层至少需要多长时间？

输入格式 InputFormat

第一行两个正整数N、M。 第二行M个整数C1、C2……CM。

输出格式 OutputFormat

输出一个整数表示答案，即至少需要多长时间。若不可能到达输出-1。

样例输入 SampleInput [复制数据]

6 3
-1 0 2

样例输出 SampleOutput [复制数据]

19

数据范围和注释 Hint

手柄从第二个槽扳到第三个槽（0扳到2），用时1秒，电梯上升到3层，用时4秒。 手柄在第三个槽不动，电梯再上升到5层，用时4秒。 手柄扳动到第一个槽（2扳到-1），用时2秒，电梯下降到4层，用时2秒。 手柄扳动到第三个槽（-1扳倒2），用时2秒，电梯上升到6层，用时4秒。 总用时为(1+4)+4+(2+2)+(2+4)=19秒。 对于30% 的数据，满足1≤N≤10，2<=M<=5。 对于 100% 的数据，满足1≤N≤1000，2<=M<=20，-N<C1<C2<……<CM<N。

时间限制 TimeLimitation

各个测试点1s

Delphi语言: 高亮代码由发芽网提供

program poetize9p2;
type node=record
   p,d:longint;
   end;
var dist:array[1..1000,1..20] of int64;
   mark:array[1..1000,1..20] of boolean;
   w:array[1..20] of integer;
   q:array[1..200000] of node;
   n,m,head,tail,min,ans,k1,k2:int64;i,j:longint;
   k:node;
procedure push(pp,dd:longint);
begin
inc(head);q[head].p:=pp;q[head].d:=dd;
mark[pp,dd]:=true;
end;
function pop:node;
begin
pop:=q[tail];
inc(tail);
end;
begin
 readln(n,m);
 fillchar(mark,sizeof(mark),false);
 for i:=1 to m do begin
   read(w[i]);
   if w[i]=0 then min:=i;
   end;
 for i:=1 to n do
  for j:=1 to m do dist[i,j]:=maxlongint;
 dist[1,min]:=0;
 head:=0;tail:=1;
 push(1,min);
 while head>=tail do begin
   k:=pop;
   for i:=1 to m do
      if (w[i]+k.p<=n)and(w[i]+k.p>=1) then begin
       k1:=w[i]+k.p;k2:=abs(k.d-i)+abs(2*w[i]);
       if (dist[k1,i]>dist[k.p,k.d]+k2) then begin
         dist[k1,i]:=dist[k.p,k.d]+k2;
       if  not mark[k1,i] then  push(k1,i);
               end;
       end;
   mark[k.p,k.d]:=false;
   end;
 ans:=maxlongint;
 for i:=1 to m do
  if dist[n,i]<ans then  ans:=dist[n,i];
 if ans=maxlongint then ans:=-1;
 writeln(ans);
end.