結果
問題 |
No.156 キャンディー・ボックス
|
ユーザー |
![]() |
提出日時 | 2019-06-17 12:22:03 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 371 bytes |
コンパイル時間 | 1,209 ms |
コンパイル使用メモリ | 33,024 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-27 07:52:32 |
合計ジャッジ時間 | 2,627 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 28 WA * 2 |
ソースコード
implicit none integer(8) i,l,n,m,b,e integer(8),allocatable :: c(:) integer(8),allocatable :: d(:) read(*,*) n,m allocate (c(n)) allocate (d(n)) c=0 d=0 b=1 e=0 read(*,*) (C(l),l=1,n) do i=1,n d(i)=minval(c) c(minloc(c))=c(minloc(c))+100001 end do do while (e<m) e=e+d(b) b=b+1 end do if (e==m) then write(*,*) b-1 else write(*,*) b-2 end if end