結果
問題 |
No.5 数字のブロック
|
ユーザー |
|
提出日時 | 2020-09-27 22:23:44 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 4 ms / 5,000 ms |
コード長 | 583 bytes |
コンパイル時間 | 528 ms |
コンパイル使用メモリ | 32,768 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-30 13:46:01 |
合計ジャッジ時間 | 1,589 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 34 |
ソースコード
program main implicit none integer :: l, n integer, allocatable :: w(:) logical, allocatable :: mask(:) integer :: total_width = 0 integer :: min_index integer :: i read *, l read *, n allocate (w(n)) allocate (mask(n)) read *, w mask = .true. do i = 1, n min_index = minloc(w, 1, mask) total_width = total_width + w(min_index) mask(min_index) = .false. if (total_width > l) exit end do print '(I0)', i-1 end program main