3400: [Usaco2009 Mar]Cow Frisbee Team 奶牛沙盘队
Time Limit: 3 Sec Memory Limit: 128 MB
Submit: 129 Solved: 84
[Submit][Status][Discuss]
Description
农夫顿因开始玩飞盘之后,约翰也打算让奶牛们享受飞盘的乐趣.他要组建一只奶牛飞盘
队.他的N(1≤N≤2000)只奶牛,每只部有一个飞盘水准指数Ri(1≤Ri≤100000).约翰要选出1只或多于1只奶牛来参加他的飞盘队.由于约翰的幸运数字是F(1≤F≤1000),他希望所有奶牛的飞盘水准指数之和是幸运数字的倍数.
帮约翰算算一共有多少种组队方式.
Input
第1行输入N和F,之后N行输入Ri.
Output
组队方式数模10^8取余的结果.
Sample Input
4 5
1
2
8
2
1
2
8
2
Sample Output
3
HINT
组队方式有(2,3),(3,4),(1,2,4)共三种
Source
题解:一开始还在想着怎么DFS剪枝= =。。。感觉自己水水哒
其实就是一个水水的DP就完事啦,记得最后要-1(你总不能一个都不要然后还要算一种方法吧)
/**************************************************************
Problem:
User: HansBug
Language: Pascal
Result: Accepted
Time: ms
Memory: kb
****************************************************************/ const p=;
var
i,j,k,l,m,n:longint;
b:array[..] of longint;
a:array[..,..] of longint;
begin
readln(n,m);
for i:= to n do readln(b[i]);
for i:= to n do b[i]:=b[i] mod m;
fillchar(a,sizeof(a),);
a[,]:=;
for i:= to n do
for j:= to m do
a[i,j]:=(a[i-,(j-b[i]+m) mod m]+a[i-,j]) mod p;
writeln(a[n,]-);
readln;
end.