import Data.List (sort)

solve i m (c:cs)
    | m == c    = i + 1
    | m < c     = i
    | otherwise = solve (i + 1) (m - c) cs

main = do
    [n, m] <- map read . words <$> getLine
    cs <- sort . map read . words <$> getLine
    print $ solve 0 m cs