Problem:
Problem D: 僕の友達は小さい

僕には、たくさんの友達がいる。どの友達も、とても小さい。

僕は、よく友達と一緒に出かける。何人かの友達をリュックに入れて、一緒に出かける。

僕は毎朝、その日一緒に出かける友達を決める。空のリュックに、１人ずつ友達を入れていく。

僕は、あまり力が強くない。だから、同時に運べる友達の重さには限界がある。

僕は、重さの限界を超えないように友達を入れていく。どの順番で入れていくかは気分次第。

僕は、入れられる友達がまだ残っている限り、入れるのを止めない。決して止めない。

……ところで、リュックに入った友達の組み合わせは、全部で何パターンあるんだろう？

Input

N W

w1

w2

.

.

.

wn

入力の１行目には、整数N（1 ≤ N ≤ 200）と整数W（1 ≤ W ≤ 10,000）が、この順に空白区切りで書かれている。整数N は友達の数を、整数W は同時に運べる重さの限界をあらわす。重さの合計がW より大きいと運ぶことはできない。

続くN 行には、友達の重さをあらわす整数が書かれている。整数wi（1 ≤ wi ≤ 10,000）が、i 番目の友達の重さをあらわす。

Output

最終的にリュックに入っている友達の組み合わせは何通り考えられるか。その総数を1,000,000,007
で割った余りを出力せよ。なお1,000,000,007 は素数である。

「誰もリュックに入っていない」も１通りとして数えることに注意せよ。

Sample Input 1

4 8
1
2
7
9

Sample Output 1

2

Sample Input 2

4 25
20
15
20
15

Sample Output 2

4

Sample Input 3

6 37
5
9
13
18
26
33

Sample Output 3

6

Solution in Rust (judge verdict: Accepted)

#[allow(unused_imports)]
use std::cmp::{max, min, Ordering};
#[allow(unused_imports)]
use std::collections::{BTreeMap, BTreeSet, BinaryHeap, HashMap, HashSet, VecDeque};
#[allow(unused_imports)]
use std::iter::FromIterator;
#[allow(unused_imports)]
use std::io::stdin;

mod util {
    use std::io::stdin;
    use std::str::FromStr;
    use std::fmt::Debug;

    #[allow(dead_code)]
    pub fn line() -> String {
        let mut line: String = String::new();
        stdin().read_line(&mut line).unwrap();
        line.trim().to_string()
    }

    #[allow(dead_code)]
    pub fn gets<T: FromStr>() -> Vec<T>
    where
        <T as FromStr>::Err: Debug,
    {
        let mut line: String = String::new();
        stdin().read_line(&mut line).unwrap();
        line.split_whitespace()
            .map(|t| t.parse().unwrap())
            .collect()
    }
}

#[allow(unused_macros)]
macro_rules! get {
    ($t:ty) => {
        {
            let mut line: String = String::new();
            stdin().read_line(&mut line).unwrap();
            line.trim().parse::<$t>().unwrap()
        }
    };
    ($($t:ty),*) => {
        {
            let mut line: String = String::new();
            stdin().read_line(&mut line).unwrap();
            let mut iter = line.split_whitespace();
            (
                $(iter.next().unwrap().parse::<$t>().unwrap(),)*
            )
        }
    };
    ($t:ty; $n:expr) => {
        (0..$n).map(|_|
                    get!($t)
                   ).collect::<Vec<_>>()
    };
    ($($t:ty),*; $n:expr) => {
        (0..$n).map(|_|
                    get!($($t),*)
                   ).collect::<Vec<_>>()
    };
    ($t:ty ;;) => {
        {
            let mut line: String = String::new();
            stdin().read_line(&mut line).unwrap();
            line.split_whitespace()
                .map(|t| t.parse::<$t>().unwrap())
                .collect::<Vec<_>>()
        }
    };
}

#[allow(unused_macros)]
macro_rules! debug {
    ($($a:expr),*) => {
        println!(concat!($(stringify!($a), " = {:?}, "),*), $($a),*);
    }
}

#[derive(Eq, PartialEq, Clone, Debug)]
struct Rev<T>(pub T);

impl<T: PartialOrd> PartialOrd for Rev<T> {
    fn partial_cmp(&self, other: &Rev<T>) -> Option<Ordering> {
        other.0.partial_cmp(&self.0)
    }
}

impl<T: Ord> Ord for Rev<T> {
    fn cmp(&self, other: &Rev<T>) -> Ordering {
        other.0.cmp(&self.0)
    }
}

const M: u64 = 1000000007;

fn main() {
    let (n, w) = get!(usize, usize);
    let mut ws = get!(usize; n);

    ws.sort_by_key(|&x| Rev(x));

    let mut sum = ws.iter().sum::<usize>();
    let mut dp = vec![0; w + 1];
    dp[0] = 1;

    let mut ans = 0;

    if sum <= w {
        println!("{}", 1);
        return;
    }

    for &x in &ws {
        sum -= x;
        for k in 0..w + 1 {
            if k + sum <= w && k + sum + x > w {
                ans += dp[k];
                ans %= M;
            }
        }

        for i in (x..w + 1).rev() {
            if dp[i - x] > 0 {
                dp[i] = (dp[i] + dp[i - x]) % M;
            }
        }
    }

    println!("{}", ans);
}