let () = let n, m = Scanf.scanf "%d %d " (fun n m -> n, m) in let c = Array.init n (fun _ -> Scanf.scanf "%d " (fun i -> i)) in Array.fast_sort (-) c; let rec doit i m = if i = n then i else if c.(i) > m then i else doit (i + 1) (m - c.(i)) in doit 0 m |> Printf.printf "%d\n"