結果
問題 | No.198 キャンディー・ボックス2 |
ユーザー |
|
提出日時 | 2018-04-21 06:56:22 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 716 bytes |
コンパイル時間 | 1,820 ms |
コンパイル使用メモリ | 33,364 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-16 10:16:39 |
合計ジャッジ時間 | 2,233 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 26 |
ソースコード
module mdl contains function calc(c,trg) integer*8::calc,c(:),trg calc=0 do i=1,size(c) calc=calc+abs(c(i)-trg) end do end function end module program main use mdl implicit none integer*8::b,n,tot=0,i,j,k,s,t,ans integer*8,allocatable::c(:) read*,b read*,n allocate(c(n)) tot=b do i=1,n read*,c(i) tot=tot+c(i) end do s=0 t=tot/n do while(t-s>2) i=(2*s+t)/3 j=(s+2*t)/3 if(calc(c,i)<calc(c,j))then t=j else s=i end if end do ans=calc(c,s) do i=s,t ans=min(ans,calc(c,i)) end do print*,ans end program