jzoj 1579. 【普及模拟】老鼠 解题报告

1579. 【普及模拟】老鼠 
(File IO): input:mouse.in output:mouse.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

   最近小h家闹鼠灾，弄得小h十分恼火。为了解决老鼠的问题，小h根据老鼠的特点想出了一个方法。假设小h 的家是一个n*n的格子，每个格子都有一定的食物，数量在0到100之间，经过观察，老鼠的窝在（1，1）的位置，老鼠吃东西有个特点，到哪个地方，就把这个地方的食物都吃掉，而且每次都比上一次吃的食物要多，因此它们总会有个停止的地方，而且，这些老鼠一次最多可以跳k格，不过只能按x轴或y轴方向来跳。现在，小h给出食物的分布，他想知道一只老鼠最多可以吃到多少食物。

输入

第一行,n,(1<=n<=100),k,(0<=k<=n),表示n*n的格子，老鼠一次最多跳k格。

   接下来的n行，每行n个数，表示这个方格上的食物数量。

输出

一个数，表示一只老鼠最多可以吃到的食物。

样例输入

3 1

1 2 5

10 11 6

12 12 7

样例输出

37

数据范围限制

提示

【样例解释】

(1,1)->(1,2)->(1,3)->(2,3)->(2,2)->(3,2)

1+2+5+6+11+12=37

 代码如下： 记忆化搜索

const
 wx:array[1..4]of longint=(1,0,-1,0);
 wy:array[1..4]of longint=(0,1,0,-1);
var
 a,f:array[-100..1001,-100..1001]of longint;
 n,k,max:longint;

procedure dfs(x,y:longint);
var i,j:longint;
begin
 for i:=1 to 4 do
  for j:=1 to k do
   if (a[x,y]and(x+wx[i]*j>0)and(x+wx[i]*j<=n)and(y+wy[i]*j>0)and(y+wy[i]*j<=n) then
     if  f[x+wx[i]*j,y+wy[i]*j]then
   begin
    f[x+wx[i]*j,y+wy[i]*j]:=f[x,y]+a[x+wx[i]*j,y+wy[i]*j];
    dfs(x+wx[i]*j,y+wy[i]*j);
   end;
end;

procedure init;
var i,j:longint;
begin
 readln(n,k);
 for i:=1 to n do
  for j:=1 to n do
   read(a[i,j]);
  f[1,1]:=a[1,1];
end;

procedure print;
var i,j:longint;
begin
 for i:=1 to n do
  for j:=1 to n do
   if f[i,j]>max then max:=f[i,j];
  write(max);
end;

begin
 assign(input,'mouse.in'); reset(input);
 assign(output,'mouse.out');rewrite(output);
 init;
 dfs(1,1);
 print; 
end.