結果

問題 No.257 N言っちゃダメゲーム (3)
コンテスト
ユーザー yuma25689
提出日時 2015-11-18 02:47:06
言語 Perl
(5.40.0)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,164 bytes
コンパイル時間 77 ms
コンパイル使用メモリ 6,688 KB
実行使用メモリ 43,680 KB
最終ジャッジ日時 2024-07-16 21:46:40
合計ジャッジ時間 6,457 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other TLE * 1 -- * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "true" may clash with future reserved word at Main.pl line 33.
Bareword found in conditional at Main.pl line 50.
Main.pl syntax OK

ソースコード

diff # 

$rawInput=<STDIN>;
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=<STDIN>;
		chomp($input);
		$readNum=int($input);
		if( $countOfDead <= $readNum)
		{
			# 勝利で終了
			return;
		}
		# currentを更新
		$current = $readNum;
		$minWinNumber = ($winNumber-$current) % ($maxAdd+1);

		$current += $minWinNumber;
		print($current."\n");
	}
}
0