Problem:
Score : 200 points

Problem Statement

There are N children, numbered 1, 2, ..., N.

Snuke has decided to distribute x sweets among them.
He needs to give out all the x sweets, but some of the children may get zero sweets.

For each i (1 \leq i \leq N), Child i will be happy if he/she gets exactly a_i sweets.
Snuke is trying to maximize the number of happy children by optimally distributing the sweets.
Find the maximum possible number of happy children.

Constraints

All values in input are integers.

2 \leq N \leq 100

1 \leq x \leq 10^9

1 \leq a_i \leq 10^9

Input

Input is given from Standard Input in the following format:

N x
a_1 a_2 ... a_N

Output

Print the maximum possible number of happy children.

Sample Input 1

3 70
20 30 10

Sample Output 1

2

One optimal way to distribute sweets is (20, 30, 20).

Sample Input 2

3 10
20 30 10

Sample Output 2

1

The optimal way to distribute sweets is (0, 0, 10).

Sample Input 3

4 1111
1 10 100 1000

Sample Output 3

4

The optimal way to distribute sweets is (1, 10, 100, 1000).

Sample Input 4

2 10
20 20

Sample Output 4

0

No children will be happy, no matter how the sweets are distributed.

Solution in OCaml (4.02.3) (judge verdict: Time Limit Exceeded)

(*
ocamlfind ocamlopt -package batteries -linkpkg main.ml -o a.out
*)
open Batteries

let rec solver lst x =
        match lst with
                  [] -> 0
                | first :: [] -> 
                        if (x - first) = 0 then
                                1
                        else
                                0
                | first :: rest -> 
                        if (x - first) = 0 then
                                1
                        else
                        if (x - first) < 0 then
                                0
                        else
                                let tmax = solver rest (x - first) in
                                let fmax = solver rest x in
                                        if (tmax + 1) < fmax then
                                                fmax
                                        else
                                                tmax + 1

let n, x = Scanf.sscanf (read_line ()) "%d %d" ( fun n x -> n, x)
let lst = Str.split (Str.regexp " ") (read_line ())
          |> List.map int_of_string 
          |> List.sort compare

let () =
        solver lst x
        |> Printf.printf "%d\n"