3400: [Usaco2009 Mar]Cow Frisbee Team 奶牛沙盘队

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

Sample Output

3

HINT

 

    组队方式有(2，3)，(3，4)，(1，2，4)共三种

 

Source

Silver

 

题解：一开始还在想着怎么DFS剪枝= =。。。感觉自己水水哒

其实就是一个水水的DP就完事啦，记得最后要-1（你总不能一个都不要然后还要算一种方法吧）

/**************************************************************
    Problem: 3400
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:260 ms
    Memory:23704 kb
****************************************************************/
 
const p=100000000;
var
   i,j,k,l,m,n:longint;
   b:array[0..5000] of longint;
   a:array[0..3000,0..2000] of longint;
begin
     readln(n,m);
     for i:=1 to n do readln(b[i]);
     for i:=1 to n do b[i]:=b[i] mod m;
     fillchar(a,sizeof(a),0);
     a[0,0]:=1;
     for i:=1 to n do
         for j:=0 to m do
             a[i,j]:=(a[i-1,(j-b[i]+m) mod m]+a[i-1,j]) mod p;
     writeln(a[n,0]-1);
     readln;
end.