(define (solve l arr)
  (if (or (null? arr) (< l (car arr)))
      0
      (+ 1 (solve (- l (car arr)) (cdr arr)))))

(let* ((l (read))
       (n (read))
       (arr (map (lambda (_) (read))
		 (iota n))))

  (print (solve l (sort arr))))