我讨厌空格、、、

点击查看程序源码+详细题解

编译通过...

├ 测试数据 01：答案正确... (0ms, 708KB)

---|---|---|---|---|---|---|---|-

Accepted / 100 / 0ms / 708KB

不要小看这一组数据，这一组中测了至少20组才用-1结束

一看题就打消了我手算w(15,15,15)然后蒙数据的方法

最后只好用递归+记忆

不记忆的话会重复计算很多次，造成堆栈溢出

用记忆碰到算过的值可以直接取用，避免了很多次调用

说几个输出的细节问题：

在逗号后有一个空格

等号前后各有一个空格

判断返回值的顺序是按题目给的顺序，先20,再a

点击这里查看

编译通过... 

├ 测试数据 01：答案正确... 0ms 

---|---|---|---|---|---|---|---|- 

Accepted 有效得分：100 有效耗时：0ms 

1A 输出比较坑爹 ，记得w(a,空格b,空格c)空格=空格结果

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

记搜

其实很简单，只要不停地递归，不过要记录结果，不然会超时

ps：---|程序很简单，就不打出来了！

太阴了

空格都要打....

WA了N次

注意按顺序输出

如 21 -21 20 应该输出 1

程序典型一递推

要不就记忆化，否则就超时

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

main()

{

long a[21][21][21]={{0},{0},{0}};

long i,j,k,x,b,c;

for (i=0;i

这个题目我无语了……

如果a20就返回w(20,20,20) 如果a

递归的时候

做备忘录就好

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

f:array[1..20,1..20,1..20] of longint;

a,b,c:integer;

function w(a,b,c:integer):longint;

begin

if (a

莫名奇妙的错了N次

以a+b+c为阶段递推。。狂水

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

就一个数据,有点弱

program tt;

var f:array[0..20,0..20,0..20]of longint;

procedure pre;

var i,j:longint;

begin

fillchar(f,sizeof(f),0);

for i:=0 to 20 do

for j:=0 to 20 do

begin

f[0,i,j]:=1;

f:=1;

f:=1;

end;

end;

procedure make;

var i,j,k:longint;

begin

for i:=1 to 20 do

for j:=1 to 20 do

for k:=1 to 20 do

if (i

巨水的记忆搜...

可惜我第一次交没打逗号哇...我的1A...

先预处理，读了直接输出。。

记忆化搜寻

#include

int num[100][3]={{0}};

long f[101][101][101]={{{0}}};

bool t[101][101][101]={{{0}}};

long ans[101]={0};

int w(int a,int b,int c)

{

if(a20)

{

f[a][c]=w(20,20,20);

t[a][c]=1;

return f[a][c];

}

else

{

if(a

优先关系要注意

我很鄙视这个题

有一个（50，50，50）的数据

用记忆化搜索超时

然后我只能cheat

这个题用来练记忆化搜索，其实应该顺序来算