結果

問題 No.257 N言っちゃダメゲーム (3)
コンテスト
ユーザー kuroi_13
提出日時 2017-03-28 10:41:49
言語 Perl
(5.40.0)
結果
AC  
実行時間 66 ms / 2,000 ms
コード長 224 bytes
コンパイル時間 32 ms
コンパイル使用メモリ 6,688 KB
実行使用メモリ 25,628 KB
平均クエリ数 3.70
最終ジャッジ日時 2024-07-17 00:51:10
合計ジャッジ時間 3,652 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

use strict;
use warnings;

$| = 1;
my($n, $k) = split ' ', <>;
my $ans = ($n-1) % ($k+1);
print $ans."\n";

my $opp;
while(1){
  $opp = <>;
  last if($n <= $opp);

  $ans = $opp + ($k+1 - ($opp - $ans));
  print $ans."\n";
}
0