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. if (n - k - 1 <= 0) then write(output_unit, '(a)') "Win" return end if 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