【洛谷1025 数的划分】【搜索】

洛谷1025 数的划分

本题地址： http://www.luogu.org/problem/show?pid=1025

题目描述

将整数n分成k份，且每份不能为空，任意两份不能相同(不考虑顺序)。
例如：n=7，k=3，下面三种分法被认为是相同的。
1，1，5; 1，5，1; 5，1，1;
问有多少种不同的分法。

输入输出格式

输入格式：n，k (6<n<=200，2<=k<=6)

输出格式：一个整数，即不同的分法。

输入输出样例

输入样例#1：

7 3

输出样例#1：

4

说明

四种分法为：1，1，5;1，2，4;1，3，3;2，2，3;

题解

因为1，1，5; 1，5，1; 5，1，1;算一种情况。
所以规定第一个数<=第二数<=……<=最后一个数……这样就不会重复。

这题标签是递推，但是数据范围很小，就不需要去浪费时间找递推式了。（shenmegui）

var s,n,m:longint;//s记录方案数
procedure try(u,last,deep:longint);//dfs，deep代表已经划分了的份数，last代表第deep份的数值，u代表数字n划分deep份后剩下的数量
var i:longint;
begin
____if deep=m then//如果已经划分了m层
____begin
________inc(s);//方案数+1
________exit;//退出当前子程序
____end else//否则
____for i:=last to u div 2 do//继续划分，由于下一份的数值要>=这一份的数值，所以此份的值最多到u div 2
________try(u-i,i,deep+1);
end;
begin
____read(n,m);//输入
____try(n,1,1);
____write(s);//输出
end.