(let* 
  ((l (string->number (read-line)))
   (n (string->number (read-line)))
   (w (sort! (map string->number (string-split (read-line) " ")))))
  (define (count w l a) 
          (cond 
            ((or (null? w)
                 (> (car w) l))
              a)
            (else
              (count (cdr w) (- l (car w)) (+ a 1)))))
   (print (count w l 0)))