(define l (string->number (read-line))) ;箱の幅 (define n (string->number (read-line)));ブロックの数 (define w (sort (map string->number (string-split (read-line) " ")))) (print (let loop ((b (car w)) (lst (cdr w)) (h l) (cnt 0)) (if (>= b h) cnt (loop (+ b (car lst)) (cdr w) h (+ cnt 1)))))