$| = 1; $rawInput=; chomp($rawInput); @input=split(/ /, $rawInput); solve(int($input[0]),int($input[1])); sub solve { my ($countOfDead, $maxAdd) = @_; $current = 0; # countOfDead-1を取得した方が勝利と思われる # また、それを取得するには、countOfDead-1-maxAdd-1を取得できればよく、 # そこから公式化すると、countOfDead-1-(maxAdd+1)*nを取得した方が勝利 # 0より大きい中でcountOfDead-1-(maxAdd+1)*nの一番小さいものをプレイヤーが取得できる方を選べば勝てる $winNumber = $countOfDead-1; $minWinNumber = $winNumber % ($maxAdd+1); if( $minWinNumber!=0 && $minWinNumber <= $maxAdd ) { # 先攻ならば勝利 $current += $minWinNumber; } else { } # currentを出力 print($current."\n"); # あとは、ひたすらcountOfDead-1-(maxAdd+1)*nをキープ while(true) { $input=; chomp($input); $readNum=int($input); if( $countOfDead <= $readNum) { # 勝利で終了 return; } # currentを更新 $current = $readNum; $minWinNumber = ($winNumber-$current) % ($maxAdd+1); $current += $minWinNumber; print($current."\n"); } }