結果

問題 No.115 遠足のおやつ
ユーザー jj
提出日時 2017-02-03 00:58:19
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 540 bytes
コンパイル時間 3,231 ms
コンパイル使用メモリ 41,728 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2025-01-03 01:22:05
合計ジャッジ時間 1,719 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer*8::R(3),N,D,K,KK,NN,NK,i,a,b
  integer*8::ans(100)=(/(i,i=1,100)/)
  character*32::cformat='(i0, 99(1x,i0))'
  read *,R
  N = R(1)
  D = R(2)
  K = R(3)
  NK=N-K
  KK=K*(K+1)/2
  NN=KK+NK*K
  if(NN.lt.D.or.KK.gt.D) then
     print '("-1")'
     return
  else if(N.eq.K) then
     write(*,cformat) ans(1:K)
  else if(NN.eq.D) then
     write(*,cformat) ans(N-K+1:N)
  else
     a = (D-KK)/NK
     b = (K-a) + MOD(D-KK,NK)
     write(*,cformat) ans(1:(K-a-1)),b,ans((N-a+1):N)
  end if
end program main
0