vijos-p1006 2008.11.8

vijos-p1006 2008.11.8

背景 Background 

   　　在很久很久以前，有一个动物村庄，那里是猪的乐园（^_^），村民们勤劳、勇敢、善良、团结……

　　不过有一天，最小的小小猪生病了，而这种病是极其罕见的，因此大家都没有储存这种药物。所以晴天小猪自告奋勇，要去采取这种药草。于是，晴天小猪的传奇故事便由此展开……

描述 Description  

这一天，他来到了一座深山的山脚下，因为只有这座深山中的一位隐者才知道这种药草的所在。但是上山的路错综复杂，由于小小猪的病情，晴天小猪想找一条需时最少的路到达山顶，但现在它一头雾水，所以向你求助。

山用一个三角形表示，从山顶依次向下有1段、2段、3段等山路，每一段用一个数字T（1<=T<=100）表示，代表晴天小猪在这一段山路上需要爬的时间，每一次它都可以朝左、右、左上、右上四个方向走（**注意**：在任意一层的第一段也可以走到本层的最后一段或上一层的最后一段）。

晴天小猪从山的左下角出发，目的地为山顶，即隐者的小屋。

输入格式 Input Format 

第一行有一个数n（2<=n<=1000），表示山的高度。

从第二行至第n+1行，第i+1行有i个数，每个数表示晴天小猪在这一段山路上需要爬的时间。 

输出格式 Output Format 

一个数，即晴天小猪所需要的最短时间。

样例输入 Sample Input  

5

1

2 3

4 5 6

10 1 7 8

1 1 4 5 6

样例输出 Sample Output  

10

注释 Hint 

在山的两侧的走法略有特殊，请自己模拟一下，开始我自己都弄错了……

 

不过我的方法比较菜啦……

就是对于某层，先处理第1个，然后向右扫描至倒数第2个

然后处理倒数第1个

然后再处理一次第1个，如果有变动的话再向右扫描至倒数第2个

然后从倒数第1个向左扫描至第2个

然后处理第1个

某人的心得:

1.DP有环怎么办?

 别急,先别想着放弃DP,有时候环是可以避免的.这里在每一行中为避免相邻两格左右移动产生的环,可以先推向左的,再推向右的,而同向移动产生的那个“大”环就麻烦一点.其实有个很简单的窍门:先记录从下一行转移来的最优值,然后在本行中寻找代价最小的点,以这个点为起点分别向左向右推,因为最小的点显然是不需要从两侧的点过来的.这样就没有后效性了..

 

2.递推的顺序:

递推有两种顺序,可以根据当前状态值推出所有可能的后继状态,也可以根据所有当前状态可能的前驱来推当前值,很多时候,当问题的状态比较有规律时,这两种方法是不相上下的.但是其他情况下一不小心就可能搞错.比如这题题目告诉我们的是从一个状态可行的所有走法(共四种),所以根据这个顺序去编是最保险的。因为这里一个状态的前驱不一定只是四个,边缘的点是特例,可能会有5个来源,所以DP的时候不要随便换状态转移顺序.

 

3.坐标的处理

我第一次把上一行的坐标全部向左移了一格..改过来之后还是错,结果发现是又漏了一个%length...在处理滚动数组的时候一定要记得检查每个下标,是不是少了取余运算!

 

从左到右，从右到左来来回回来几遍，不断更新f[i,j]

Program hill;
var
  f,a:array[0..1005,0..1006] of longint;
  n,i,j:longint;

function min(x,y:longint):longint;
begin
  if x>y then min:=y else min:=x;
end;

begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to i do read(a[i,j]);
      readln;
    end;
  f[n,1]:=a[n,1];f[n-1,1]:=f[n,1]+a[n-1,1];
  for i:=2 to n do f[n,i]:=f[n,i-1]+a[n,i];
  for i:=1 to n-1 do
    begin
      a[i,i+1]:=a[i,1];a[i,0]:=a[i,i];
    end;
  for i:=n-1 downto 1 do
   begin
     for j:=1 to i do
      if f[i+1,j]<f[i+1,j+1] then f[i,j]:=a[i,j]+f[i+1,j]
       else f[i,j]:=a[i,j]+f[i+1,j+1];
       f[i,1]:=min(f[i,1],min(f[i+1,i+1]+a[i,1],f[i,i]+a[i,1]));
       f[i,i]:=min(f[i,i],min(f[i+1,1]+a[i,i],f[i,1]+a[i,i]));
     for j:=2 to i do
       f[i,j]:=min(f[i,j],f[i,j-1]+a[i,j]);
     for j:=i-1 downto 1 do
       f[i,j]:=min(f[i,j],f[i,j+1]+a[i,j]);
   end;
  writeln(f[1,1]);end.