经典DP跳舞怀特

var
f:array[0..10000,1..5,1..5] of longint;
a:array[1..10000] of integer;
n,i,j,k,p,q,b1,b2,minn:longint;

function min(a,b:longint):longint;
begin
  if a>b then exit(b) else exit(a);
end;

function change(a,b:integer):integer;
begin
  if a=b then exit(1) else
  if a=5 then exit(2) else
  if abs(a-b)=2 then
   exit(4) else exit(3);
end;

begin
  readln(n);
  for i:=1 to n do
   readln(a[i]);
  for i:=1 to 5 do
   for j:=1 to 5 do
    f[0,i,j]:=1000000;
    f[0,5,5]:=0;
  for k:=1 to n do
   for p:=1 to 5 do
    for q:=1 to 5 do
     f[k,p,q]:=maxlongint;
  for k:=1 to n do
   for p:=1 to 5 do
    for q:=1 to 5 do
     if f[k-1,p,q]<>maxlongint then
      begin
       b1:=change(p,a[k]);
       b2:=change(q,a[k]);
       f[k,a[k],q]:=min(f[k,a[k],q],f[k-1,p,q]+b1);
       f[k,a[k],p]:=min(f[k,a[k],p],f[k-1,p,q]+b2);
      end;
  minn:=maxlongint;
  for i:=1 to 5 do
   for j:=1 to 5 do
    if f[n,i,j]<minn then minn:=f[n,i,j];
  writeln(minn);
end.

 

描述 Description
	怀特先生是一个大胖子。他很喜欢玩跳舞机（Dance Dance Revolution, DDR），甚至希望有一天人家会脚踏“舞蹈家怀特先生”。可惜现在他的动作根本不能称作是在跳舞，尽管每次他都十分投入的表演。这也难怪，有他这样的体型，玩跳舞机是相当费劲的。因此，他希望写一个程序来安排舞步，让他跳起来轻松一些，至少不要每次都汗流浃背。 DDR的主要内容是用脚来踩踏板。踏板有四个方向的箭头，用1 (Up)、2 (Left)、3 (Down)、4 (Right)来代表，中间位置由0来代表。每首歌曲有一个箭头序列，游戏者必须按照或这个序列一次用某一只脚踩相应的踏板。在任何时候，两只脚都不能在同一踏板上，但可以同时待在中心位置0。 每一个时刻，它必须移动而且只能移动他的一只脚去踩相应的箭头，而另一只脚不许移动。跳完一首曲子之后，怀特先生会计算他所消耗的体力。从中心移动到任何一个箭头耗费2单位体力，从任何一个箭头移动到相邻箭头耗费3单位体力，移动到相对的箭头（1和3相对，2和4相对）耗费4单位体力，而留在原地再踩一下只需要1单位。怀特先生应该怎样移动他的双脚（即，对于每个箭头，选一只脚去踩它），才能用最少的体力完成一首给定的舞曲呢？ 例如，对于箭头序列Left (2), Left (2), Up (1), Right (4)，他应该分别用左、左、右、右脚去踩，总的体力耗费为2+1+2+3=8单位。

	输入格式 Input Format
		第一行N，表示有N个时刻 第二到n+1行，每行一个数，表示需要踩得版

	输出格式 Output Format
		一个数，最小消耗体力

	样例输入 Sample Input
		2 1 1

	样例输出 Sample Output
		3

	时间限制 Time Limitation
		各个测试点1s

	注释 Hint
		n<=10000