【汕头市选2012初中组】数数(count) 的简单题解

题目描述

ftiasch 开发了一个奇怪的游戏，这个游戏的是这样的：一个长方形，被分成N 行M 列的格子，第

i 行第j 列的格子记为(i; j)，就是说，左上角的格子是(1; 1)，右下角的格子是(N;M)。开始的时候，

nm 在(1; 1)，他需要走到(N;M)。每一步，nm 可以走到正右方或者正下方的一个格子。具体地说，如

果nm 现在在(x; y)，那么他可以走到(x; y + 1) 或(x + 1; y)。当然，nm 不能走出离开这个长方形。

每个格子有积分，用一个1 10 的整数表示。经过这个格子，就会获取这个格子的积分（起点和终

点的积分也计算）。通过的方法是：到达(N;M) 的时候，积分恰好为P。

现在给出这个长方形每个格子的积分，你需要帮助nm，求出从起点走到终点，积分为P 的线路有

多少条。

输入

第1 行，3 个整数N, M, P。接下来N 行，每行M 个整数Aij，表示格子(i; j) 的积分。

输出

第1 行，1 个整数，表示积分为P 线路的数量。因为数值太大，你只需要输出结果除以(109 +7) 的

余数。

样例输入

3 3 9

2 2 1

2 2 2

1 2 2

样例输出

2

数据范围限制

提示

数据范围

• 对于50% 的数据，1<= N;M <= 10。

• 对于100% 的数据，1 <= N;M <= 100，0 <= Aij<= 10。

很水的一道超简单dp（动态规划）。

只不过dp的不是二维数组中的一个变量，而是一整个数组。

Pascal的变量在比赛中可以达到268435456字节，一个longint变量是4字节。

所以可以开67108864个longint变量，担心个屁的空间超限。

标程：

const
	maxx=1000000007;
var
	a,mx,mn:array [0..100,0..100] of longint;
	b:array [0..100,0..100,0..1990] of longint;
	n,m,p,i,j,t:longint;
function max(x,y:longint):longint;
begin if x>y then exit(x); exit(y); end;
function min(x,y:longint):longint;
begin if x<y then exit(x); exit(y); end;
begin
	assign(input,'count.in'); reset(input);
	assign(output,'count.out'); rewrite(output);
	readln(n,m,p);
	for i:=1 to n do
		for j:=1 to m do
			read(a[i,j]);
	b[0,1,0]:=1;
	for i:=1 to n do
		for j:=1 to m do
		begin
			mn[i,j]:=max(min(mn[i-1,j],mn[i,j-1])+a[i,j],p-10*(n+m-i-j)); mx[i,j]:=min(max(mx[i-1,j],mx[i,j-1])+a[i,j],p);
			for t:=mn[i,j] to mx[i,j] do
			begin
				b[i,j,t]:=b[i-1,j,t-a[i,j]]+b[i,j-1,t-a[i,j]];
				if b[i,j,t]>=maxx then b[i,j,t]:=b[i,j,t] mod maxx;
			end;
		end;
	writeln(b[n,m,p]);
	close(input); close(output);
end.

这程序太快了，64ms跑完，如果不想太引人注目的话，我还给一个没有优化剪枝的248ms的标程：

var
  a:array[1..100,1..100] of longint;
  f:array[0..100,0..100,0..2000] of longint;
  i,j,k,m,n,l,p:longint;
begin
   readln(n,m,p);
   for i:=1 to n do
      for j:=1 to m do read(a[i,j]);
   f[1,1,a[1,1]]:=1;
   for i:=1 to n do
      for j:=1 to m do
         for k:=a[i,j]+1 to p do
         begin
            f[i,j,k]:=(f[i-1,j,k-a[i,j]]+f[i,j-1,k-a[i,j]])mod 1000000007;
         end;
   writeln(f[n,m,p]);
end.