結果

問題 No.8 N言っちゃダメゲーム
ユーザー osada-yum
提出日時 2023-10-30 16:37:29
言語 Fortran
(gFortran 14.2.0)
結果
RE  
実行時間 -
コード長 971 bytes
コンパイル時間 563 ms
コンパイル使用メモリ 33,280 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-25 17:18:48
合計ジャッジ時間 2,125 ms
ジャッジサーバーID
(参考情報)
judge4 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 5 RE * 6
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

program yukicoder_8
use, intrinsic :: iso_fortran_env
implicit none
integer(int32) :: p
integer(int32) :: n, k
integer(int32) :: i
read(input_unit, *) p
do i = 1, p
read(input_unit, *) n, k
call solve(n, k)
end do
contains
impure subroutine solve(n, k)
integer(int32), intent(in) :: n, k
logical :: dp(0:n) !> .
integer(int32) :: n_true
integer(int32) :: i
dp(n - 1:n) = .false.
dp(max(0, n - k - 1):n - 2) = .true.
n_true = count(dp(n - k:n - 1)) !> i == n - k - 1 , dp(n - k:n - 1) .true. .
do i = n - k - 2, 0, -1
if (dp(i + k + 1)) n_true = n_true - 1
if (dp(i + 1)) n_true = n_true + 1
!> dp(i + 1:i + k) .true. . .false. .
dp(i) = n_true < k
end do
write(output_unit, '(a)') trim(merge("Win ", "Lose", dp(0)))
end subroutine solve
end program yukicoder_8
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0