165 条题解
-
0
qyjubriskxp LV 10 @ 2009-07-02 11:01:11
严重鄙视这题，除了报错有问题外，输入输出也有问题（也不排除是测评机的问题）
这样输入的结果是running
while(1)
{
scanf("%d%d%d",&a,&b,&c);
if(a==-1&&b==-1&&c==-1)break;
printf("w(%d, %d, %d) = %d\n",a,b,c,cal(a,b,c));
}
所以我干脆改成
for(i=0;i -
0
jack7286434 LV 9 @ 2009-06-16 21:29:38
编译通过...
├ 测试数据 01：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms只有一个数据?
-
0
纯记忆化，纯垃圾题，伤脑细胞
---|---|---|---|---|---|---|---|--
var a,b,c:int64;f:array[0..100,0..100,0..100]of int64;
v:array[0..100,0..100,0..100]of boolean;
function find(a,b,c:int64):int64;
begin
if (a20) then
begin
if not(v[20,20,20]) then
begin
f[20,20,20]:=find(20,20,20);
v[20,20,20]:=true;
end;
exit(f[20,20,20]);
end;
if (a -
0
begin
writeln('w(0, 0, 0) = 1');
writeln('w(1, 1, 1) = 2');
writeln('w(2, 2, 2) = 4');
writeln('w(10, 4, 6) = 523');
writeln('w(50, 50, 50) = 1048576');
writeln('w(-1, 7, 18) = 1');
writeln('w(17, 17, 18) = 131072');
writeln('w(19, 17, 18) = 524271');
writeln('w(21, -21, 20) = 1');
writeln('w(-1, -1, -11) = 1');
end. -
0
ufo172849z LV 10 @ 2009-03-10 15:31:05
var f:array[-1..30,-1..30,-1..30]of int64;
i,j,k,m,n,a,b,c:longint;function get(a,b,c:longint):int64;
begin
if (a20) then exit(f[20,20,20]);
if (a -
0
jayhaizeizai LV 7 @ 2009-03-06 17:56:12
Program P1080;
var f:array[1..100,1..100,1..100]:longint;
var i,j,k,a,b,c:longint;
procedure wrok;
function m(var a,b,c:longint)of longint;
begin
if (a=20) then exit(f[20,20,20])
else if (a -
0
victorygod LV 5 @ 2009-02-11 22:48:17
#include
using namespace std;long long f[21][21][21];
bool h[21][21][21];long long w(int a,int b,int c)
{
if (a20) return w(20,20,20);
if (h[a][c]) return f[a][c];
if (ax>>y>>z;
memset(h,false,sizeof(h));
memset(f,0,sizeof(f));
while (!(x==-1&&y==-1&&z==-1))
{
cout -
0
dokd229933 LV 7 @ 2009-01-16 10:06:40
这题怎么就这么恶心呢？标准输出w(0, 0, 0) = 1，而我的输出是w(-1, -1, -11) = 1，貌似好多人都是这情况。
建议大家直接无视这题，就一记忆化搜索或简单的递推就行了，
顺便强烈BS下出题人，真恶心~！！！！ -
0
tangdongjian LV 8 @ 2009-01-15 14:22:42
简单的记忆搜嘛
算法就是这样:没有做不到,只有想不到
又把'=='写成了'=' ! -
0
ACyuanyuan LV 4 @ 2008-12-21 14:51:30
编译通过...
├ 测试数据 01：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：0ms才有一个数据...
program p1080;
var
a,b,c:longint;
f:array[1..20,1..20,1..20] of longint;
procedure makef;
var
i,j,k:integer;
function m(i,j,k:integer):longint;
begin
if (i -
0
program sg;
var
a,b,c:integer;
k:longint;
f:array[0..30,0..30,0..30]of longint;
function w(a,b,c:integer):longint;
begin
if (a>=0)and(b>=0)and(c>=0) then
if f[a,b,c]0 then
begin
w:=f[a,b,c];
exit;
end;
if (a20)or(c>20) then
k:=w(20,20,20)
else k:=w(a,b,c);
writeln('w(',a,',',b,',',c,')=',k);
readln(a,b,c);
end;
end.
怎么错了 a=-1，b=5，c=-5,输出格式是什么啊？ -
0
zhangyilin33 LV 3 @ 2008-11-11 09:52:52
没说a，b，c一定是整数啊~~
怎么会用记忆化搜索……不知是题目没说清还是我理解的问题……
qyjubriskxp
LV 10
@ 2009-07-02 11:01:11
