結果

問題 No.2486 Don't come next to me
ユーザー osada-yumosada-yum
提出日時 2023-09-29 22:03:05
言語 Fortran
(gFortran 13.2.0)
結果
AC  
実行時間 64 ms / 2,000 ms
コード長 991 bytes
コンパイル時間 2,451 ms
コンパイル使用メモリ 32,768 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-07-22 16:02:47
合計ジャッジ時間 3,575 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 51 ms
6,816 KB
testcase_01 AC 47 ms
6,944 KB
testcase_02 AC 15 ms
6,940 KB
testcase_03 AC 34 ms
6,944 KB
testcase_04 AC 47 ms
6,944 KB
testcase_05 AC 35 ms
6,940 KB
testcase_06 AC 39 ms
6,940 KB
testcase_07 AC 9 ms
6,940 KB
testcase_08 AC 16 ms
6,940 KB
testcase_09 AC 45 ms
6,944 KB
testcase_10 AC 34 ms
6,940 KB
testcase_11 AC 21 ms
6,944 KB
testcase_12 AC 11 ms
6,944 KB
testcase_13 AC 64 ms
6,940 KB
testcase_14 AC 19 ms
6,944 KB
testcase_15 AC 35 ms
6,944 KB
testcase_16 AC 9 ms
6,948 KB
testcase_17 AC 16 ms
6,944 KB
testcase_18 AC 14 ms
6,940 KB
testcase_19 AC 16 ms
6,940 KB
testcase_20 AC 1 ms
6,940 KB
testcase_21 AC 1 ms
6,940 KB
testcase_22 AC 1 ms
6,944 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

program yukicoder2486
  use, intrinsic :: iso_fortran_env
  implicit none
  integer(int64) :: n, diff, ans
  integer(int32) :: m
  integer(int64), allocatable :: arr(:)
  integer(int32) :: i
  read(input_unit, *) n, m
  allocate(arr(m))
  read(input_unit, *) arr(:)
  ans = 0_int64
  do i = 1, m - 1
     diff = arr(i + 1) - arr(i) - 1
     ans = ans + calc_num_last(diff)
  end do
  write(output_unit, '(i0)') ans
contains
  pure recursive integer(int64) function calc_num_last(x) result(res)
    integer(int64), intent(in) :: x
    res = 0_int64; if (x == 0) return
    res = 1_int64; if (x == 1) return
    res = 2_int64; if (x == 2) return
    !> 3 _ _ _ -> _ | _
    !> 5 _ _ _ _ _ -> _ _ | _ _
    if (iand(x, b'1') == 1) then
       res = 2 * calc_num_last(x / 2)
    else !> x is even
       !> 4 _ _ _ _ -> _ | | _
       !> 6 _ _ _ _ _ _ -> _ _ | | _ _
       !> 8 _ _ _ _ _ _ _ _ -> _ _ _ | | _ _ _
       res = x
    end if
  end function calc_num_last
end program yukicoder2486
0