集合问题

集合问题

Time Limit:10000MS  Memory Limit:65536K
Total Submit:27 Accepted:18 
Case Time Limit:1000MS

Description

对于从 1 到 N (1 <= N <= 39) 的连续整数集合，能划分成两个子集合，且保证每个集合的数字和是相等的。举个例子，如果 N=3，对于{1，2，3}能划分成两个子集合，每个子集合的所有数字和是相等的：{3} 和 {1,2} ，这是唯一一种分法（交换集合位置被认为是同一种划分方案，因此不会增加划分方案总数）如果 N=7，有四种方法能划分集合{1，2，3，4，5，6，7}，每一种分法的子集合各数字和是相等的: 

{1,6,7} 和 {2,3,4,5} {注 1+6+7=2+3+4+5} {2,5,7} 和 {1,3,4,6} {3,4,7} 和 {1,2,5,6} {1,2,4,7} 和 {3,5,6} 

给出 N，你的程序应该输出划分方案总数，如果不存在这样的划分方案，则输出 0。程序不能预存结果直接输出。

Input

从文件 subset.in 中读入数据，文件只有一行，且只有一个整数 N（1 <= N <= 39）

Output

结果输出到文件 subset.out 中，输出划分方案总数，如果不存在则输出 0。

Sample Input

7

Sample Output

4

Source

100

思路：由题意可以知道，不论是什么数据，要想求得那样的一组集合，

必须知道1到n的和，用sum记录。

然后我们又可以知道，既然这组集合要相等，那么sum要保证是个偶数，

这样才有可能使两个集合的和相等。所以当mod 2<>0 时halt。

因为n=2+1（3）时，有解f[1]=1所以初始化只需要f[1]:=1。

最开始我是 从 i+1 for k 的，然后发现这样太不好做了，很不好

确定多个数字，然后只A了3个点。发现可以i可以表示从2（最轻松）

到n(最极端情况)的集合A的值，j就是k到i+1范围间寻找集合B的无重复

且A=B的循环。就可以把合适的数字转移到下一个预选数字中（f[j]:=f

[j]+f[j-i]）,但是如果集合中有数字出现0，这显然不合法，于是要加

判断。

var
 f:array[0..1000]of longint;
 i,m,j,k,n,l,sum,ans:longint;
begin
 read(n);
 for i:=1 to n do
  sum:=sum+i;
 if sum mod 2 <>0 then begin
                        write('0');
                        halt;
                       end;
f[1]:=1;
k:=sum div 2;
 for i:=2 to n do
  begin
    for j:=k downto i+1 do
    if f[abs(j-i)]<>0 then f[j]:=f[j]+f[j-i];
  end;
 write(f[k]);
end.

PS.我要辟开int64不然会炸的谣！<认真的滑稽脸>