import Data.List (sort)

solve :: Int -> [Int] -> Int
solve k (x:xs) | k >= x = 1 + solve (k - x) xs
solve _ _               = 0

main :: IO ()
main = do
    input <- getContents
    let (k:_:xs) = map read (words input)
    print (solve k (sort xs))