import Control.Applicative ((<$>))
import Data.List

main :: IO ()
main = do
  [_, m] <- getl $ map read . words
  solve m <$> getl (map read . words) >>= print

solve :: Int -> [Int] -> Int
solve m = (subtract 1) . length . takeWhile (<= m) . scanl (+) 0 . sort

getl :: (String -> a) -> IO a
getl f = f <$> getLine