let () = Scanf.scanf "%d %d\n" @@ fun n m -> let arr = Array.init n @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d in let _ = Array.fast_sort compare arr in let ans, flag, sum = ref 0, ref true, ref 0 in while !flag do if !sum + arr.(!ans) < m then (sum := !sum + arr.(!ans); ans := !ans + 1) else if !sum + arr.(!ans) = m then (ans := !ans + 1; flag := false) else flag := false done; Printf.printf "%d\n" !ans