結果

問題 No.129 お年玉(2)
ユーザー jjjj
提出日時 2016-10-10 23:04:04
言語 Fortran
(gFortran 13.2.0)
結果
AC  
実行時間 335 ms / 5,000 ms
コード長 867 bytes
コンパイル時間 2,045 ms
コンパイル使用メモリ 33,024 KB
実行使用メモリ 389,632 KB
最終ジャッジ日時 2024-05-05 23:10:14
合計ジャッジ時間 10,333 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 18 ms
21,376 KB
testcase_01 AC 1 ms
5,376 KB
testcase_02 AC 1 ms
5,376 KB
testcase_03 AC 1 ms
5,376 KB
testcase_04 AC 1 ms
5,376 KB
testcase_05 AC 150 ms
161,280 KB
testcase_06 AC 231 ms
255,232 KB
testcase_07 AC 270 ms
313,472 KB
testcase_08 AC 182 ms
213,376 KB
testcase_09 AC 251 ms
288,256 KB
testcase_10 AC 281 ms
324,864 KB
testcase_11 AC 180 ms
204,672 KB
testcase_12 AC 229 ms
267,392 KB
testcase_13 AC 242 ms
279,808 KB
testcase_14 AC 234 ms
270,208 KB
testcase_15 AC 192 ms
222,080 KB
testcase_16 AC 220 ms
252,928 KB
testcase_17 AC 266 ms
307,456 KB
testcase_18 AC 249 ms
289,152 KB
testcase_19 AC 266 ms
308,864 KB
testcase_20 AC 260 ms
306,304 KB
testcase_21 AC 325 ms
383,616 KB
testcase_22 AC 184 ms
215,552 KB
testcase_23 AC 296 ms
334,720 KB
testcase_24 AC 268 ms
321,536 KB
testcase_25 AC 178 ms
205,952 KB
testcase_26 AC 190 ms
210,816 KB
testcase_27 AC 176 ms
204,288 KB
testcase_28 AC 335 ms
387,328 KB
testcase_29 AC 1 ms
5,376 KB
testcase_30 AC 1 ms
5,376 KB
testcase_31 AC 1 ms
5,376 KB
testcase_32 AC 1 ms
5,376 KB
testcase_33 AC 2 ms
5,376 KB
testcase_34 AC 1 ms
5,376 KB
testcase_35 AC 2 ms
5,376 KB
testcase_36 AC 3 ms
5,376 KB
testcase_37 AC 4 ms
5,376 KB
testcase_38 AC 36 ms
43,776 KB
testcase_39 AC 55 ms
66,816 KB
testcase_40 AC 182 ms
190,976 KB
testcase_41 AC 102 ms
115,712 KB
testcase_42 AC 40 ms
49,536 KB
testcase_43 AC 39 ms
49,024 KB
testcase_44 AC 328 ms
389,632 KB
testcase_45 AC 24 ms
27,520 KB
testcase_46 AC 62 ms
74,624 KB
testcase_47 AC 322 ms
376,192 KB
testcase_48 AC 187 ms
225,152 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

program main
  implicit none
  integer*8::N,M,amari
  integer*8,parameter::sen=1000
  read *,N,M
  N = N/sen
  amari = MOD(N, M)
  amari = MIN(amari, M-amari)
  M = get_combination(M,amari)
contains
  function get_combination(N,R) result(NCR)
    implicit none
    !pascal triangle
    integer*8,intent(in)::N,R
    integer*8::NCR,i,j
    integer*4,allocatable::pascal(:,:)
    integer*4,parameter::modulo=10**9
!    print *, N, R
    if(R.eq.0) then
       NCR = 1
    else if(R.eq.1) then
       NCR = N
    else
       allocate(pascal(0:N, 0:N))
       pascal = 0
       pascal(0,0) =1

       do i=1,N
          do j=0,i
             pascal(j,i) = MOD(pascal(j-1,i-1) + pascal(j,i-1),modulo)
          end do
!          print *,i, pascal(:,i)
       end do
       NCR = pascal(R,N)
    end if
    print '(i0)', NCR
  end function get_combination
end program main
0