(ssl1010)P1004 2000年分区联赛提高组之四 方格取数

2000年分区联赛提高组之四 方格取数

Time Limit:50000MS  Memory Limit:65536K
Total Submit:205 Accepted:119

Description

　　设有N*N的方格图(N<=10,我们将其中的某些方格中填入正整数,而其他的方格中则放入数字0。如下图所示（见样例）： 

　　某人从图的左上角的A 点出发，可以向下行走，也可以向右走，直到到达右下角的B点。在走过的路上，他可以取走方格中的数（取走后的方格中将变为数字0）。 
　　此人从A点到B 点共走两次，试找出2条这样的路径，使得取得的数之和为最大。 

Input

　　输入的第一行为一个整数N（表示N*N的方格图），接下来的每行有三个整数，前两个表示位置，第三个数为该位置上所放的数。一行单独的0表示输入结束。

Output

　　只需输出一个整数，表示2条路径上取得的最大的和。

Sample Input

8
2  3  13
2  6   6
3  5   7
4  4  14
5  2  21 
5  6   4
6　3  15
7　2  14
0　0  0

Sample Output

67

Source

elba

var
 f:array[0..100,0..100,0..100,0..100]of longint;//f[i,j,k,l]为第一条路走到(i,j),第二条路走到(k,l)时的最大解
 a:array[0..100,0..100]of longint;
 n,x,y,z,i,j,k,l:longint;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
 readln(n);
 readln(x,y,z);
 while (x<>0) and (y<>0) and (z<>0) do
  begin
   a[x,y]:=z;
   readln(x,y,z);
  end;
 for i:=1 to n do//四重循环枚举
  for j:=1 to n do
   for k:=1 to n do
    for l:=1 to n do
     begin
      f[i,j,k,l]:=max(f[i,j,k,l],f[i-1,j,k-1,l]);//可能由上上继承(因为是从左上走向右下)
      f[i,j,k,l]:=max(f[i,j,k,l],f[i,j-1,k,l-1]);//可能由左左继承
      f[i,j,k,l]:=max(f[i,j,k,l],f[i,j-1,k-1,l]);//可能由左上继承
      f[i,j,k,l]:=max(f[i,j,k,l],f[i-1,j,k,l-1]);//可能由上左继承
      f[i,j,k,l]:=f[i,j,k,l]+a[i,j];//累加当前位置的值
      if (i<>k) and (j<>l) then//一样的话就和上面那条重复了
       f[i,j,k,l]:=f[i,j,k,l]+a[k,l];
     end;
 writeln(f[n,n,n,n]);
end.