编译通过...

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

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

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

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

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

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

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

var n,m,i,j:integer;

a:array[0..200,0..6]of longint;

begin

read(n,m);

a[1,1]:=1;

for i:=1 to n do

for j:=1 to m do

if (j

突然想练习一下剪枝，可是我只想到了一个可行性剪枝

编译通过...

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

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

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

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

有什么更强的剪枝吗？望大牛指教

#include

using namespace std;

int main()

{

int n,k,i,j;

cin>>n>>k;

int f[300][300]={};

for(i=1;i

70AC 纪念。。。

编译通过...

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

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

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

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

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

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

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

var n,k,i,j:integer;

f:array[-5..200,0..6] of longint;

begin

read(n,k);

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

f[1,1] := 1;

for i:= 2 to n do

for j :=1 to k do

if j

动态转移方程:F:=F+F; (F代表把I分成J份.)

例如:7 3 -> 1 1 5 , 1 2 4 , 1 3 3 , 2 2 6.

前3个,可以看成把 1 , F[6,2].

最后一个可以看成 F[4,3]= 1 1 2

+ 1 1 1

= 2 2 3

如果不要重复,只要保证J

#include

using namespace std;

int main (){

int n,k,i,j;

cin>>n>>k;

int a[201][100]={0};

a[0][0]=1;

for (i=1;i

深搜过了 哈哈哈~~~~

非常简单的搜索就可以过了

费劲地写了26行的递归,结果只有20分,还是递推好,一下就AC~!

f[i][j]=f[j]+f[j-1](i>j)

f[1][1]=1

才12行,递归的一半都不到.

编译通过...

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

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

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

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

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

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

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

竟然有这种事?感谢数据.....

这是我的 深搜

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

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

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

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

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

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

var s:longint;

　　n,k:byte;

procedure f(i,lp,last:byte);

var j,start:byte;

begin

　　if (i=k)then begin

　　 if n-lpn-k+i then start:=n-k+i else start:=lp+last;

　　for j:=start downto lp+((n-lp)div(k-i+1)) do

　　 f(i+1,j,j-lp);

end;

begin

readln(n,k);

f(1,0,n);

writeln(s);

end.

一样的程序第一次0

第二次就100

搞没搞错啊

这题DP倒是没想到，But我用DFS乱搜竟然AC...

就这么简单的DFS

procedure dfs(dep,l,r:smallint);

var

i:smallint;

begin

if dep=2 then total:=total+(l shr 1)-r+1

else for i:=r to l div dep do dfs(dep-1,l-i,i);

end;

只要调用dfs(k,n,1)就AC了，总共十多行程序。而且：

编译通过...

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

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

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

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

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

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

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

可见数据多么弱...

dp,没想到

内循环居然打成了 j

我也是暴力过的

令f表示i个数分成j种尾数为k的种数

f:=f(1

fuzzy大牛用的是什么方法

第一次写这么短的程序

除了A+B

简直就是一道数学题!

f[n,k]:=f[n-1,k-1]+f[n-k,k]

编译通过...

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

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

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

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

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

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

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

明天NOIP

今天Vijos达到66题

明天考号为AH-1088

呵呵

太吉利了

迷信~