(define (solve l arr)
  (define top (car arr))
  (if (< l top)
      0
      (+ 1 (solve (- l top) (cdr arr)))))

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