http://moradin.net/blog/2009/11/vijos_1080/ Innovator Sat, 24 Jul 2010 11:00:14 +0000 hourly 1 http://wordpress.org/?v=3.0.1 http://moradin.net/blog/2009/11/vijos_1080/comment-page-1/#comment-129 moradin Thu, 05 Nov 2009 13:31:11 +0000 http://moradin.net/blog/?p=255#comment-129 <a href="#comment-127" rel="nofollow">@Wandsea </a> RP++，长见识…… @Wandsea RP++，长见识……

]]> http://moradin.net/blog/2009/11/vijos_1080/comment-page-1/#comment-127 Wandsea Wed, 04 Nov 2009 15:11:14 +0000 http://moradin.net/blog/?p=255#comment-127 要学会用exit(x)这个东西....... function solve(a,b,c :longint):longint; begin if(a<=0)or(b<=0)or(c20)or(b>20)or(c>20)then exit(solve(20,20,20)); if f[a,b,c]>0 then exit(f[a,b,c]); if(a<b)and(b<c)then f[a,b,c]:=solve(a,b,c-1)+solve(a,b-1,c-1)-solve(a,b-1,c) else f[a,b,c]:=solve(a-1,b,c)+solve(a-1,b-1,c)+ solve(a-1,b,c-1)-solve(a-1,b-1,c-1); exit(f[a,b,c]); end; { solve } 要学会用exit(x)这个东西…….
function solve(a,b,c :longint):longint;
begin
if(a<=0)or(b<=0)or(c20)or(b>20)or(c>20)then exit(solve(20,20,20));
if f[a,b,c]>0 then exit(f[a,b,c]);
if(a<b)and(b<c)then
f[a,b,c]:=solve(a,b,c-1)+solve(a,b-1,c-1)-solve(a,b-1,c)
else
f[a,b,c]:=solve(a-1,b,c)+solve(a-1,b-1,c)+
solve(a-1,b,c-1)-solve(a-1,b-1,c-1);
exit(f[a,b,c]);
end; { solve }

]]>