洛谷 P1164 小A点菜

题目背景

uim神犇拿到了uoi的ra（镭牌）后，立刻拉着基友小A到了一家……餐馆，很低端的那种。

uim指着墙上的价目表（太低级了没有菜单），说：“随便点”。

题目描述

不过uim由于买了一些辅（e）辅（ro）书，口袋里只剩M元（M<=10000）。

餐馆虽低端，但是菜品种类不少，有N种（N<=100），第i种卖ai元（ai<=1000）。由于是很低端的餐馆，所以每种菜只有一份。

小A奉行“不把钱吃光不罢休”，所以他点单一定刚好吧uim身上所有钱花完。他想知道有多少种点菜方法。

由于小A肚子太饿，所以最多只能等待1秒。

输入输出格式

输入格式：
第一行是两个数字，表示N和M。

第二行起N个正数ai（可以有相同的数字，每个数字均在1000以内）。

输出格式：
一个正整数，表示点菜方案数。

输入输出样例

输入样例#1：
4 4
1 1 2 2
输出样例#1：
3

DP：
f[i]表示用i元可以买的最大方案总数。
f[i]:=f[i]+f[j-a[i]] (1<=i<=n;m>=j>=a[i])

时间复杂度：O(n*m)

var
    f:array [0..10001] of longint;
    a:array [0..101] of longint;
    i,j,m,n:longint;
begin
     readln(n,m);
     for i:=1 to n do read(a[i]);
     fillchar(f,sizeof(f),0);
     f[0]:=1;
         for i:=1 to n do
             for j:=m downto a[i] do
                 f[j]:=f[j]+f[j-a[i]];
     writeln(f[m]);
end.