結果

問題 No.624 Santa Claus and The Last Dungeon
ユーザー tailstails
提出日時 2017-12-24 03:06:35
言語 Perl
(5.38.2)
結果
AC  
実行時間 58 ms / 2,000 ms
コード長 1,631 bytes
コンパイル時間 99 ms
コンパイル使用メモリ 5,216 KB
実行使用メモリ 24,388 KB
平均クエリ数 399.28
最終ジャッジ日時 2023-09-23 15:25:04
合計ジャッジ時間 4,499 ms
ジャッジサーバーID
（参考情報） 		judge12 / judge14
このコードへのチャレンジ（β）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 58 ms
23,404 KB
testcase_01 AC 55 ms
24,268 KB
testcase_02 AC 56 ms
23,908 KB
testcase_03 AC 57 ms
24,196 KB
testcase_04 AC 57 ms
23,704 KB
testcase_05 AC 54 ms
23,524 KB
testcase_06 AC 54 ms
24,040 KB
testcase_07 AC 55 ms
23,680 KB
testcase_08 AC 55 ms
23,248 KB
testcase_09 AC 57 ms
23,536 KB
testcase_10 AC 57 ms
23,704 KB
testcase_11 AC 56 ms
23,908 KB
testcase_12 AC 56 ms
23,404 KB
testcase_13 AC 54 ms
23,428 KB
testcase_14 AC 56 ms
24,256 KB
testcase_15 AC 57 ms
23,296 KB
testcase_16 AC 54 ms
23,248 KB
testcase_17 AC 54 ms
23,260 KB
testcase_18 AC 55 ms
23,680 KB
testcase_19 AC 57 ms
24,388 KB
testcase_20 AC 57 ms
24,256 KB
testcase_21 AC 54 ms
23,404 KB
testcase_22 AC 56 ms
23,776 KB
testcase_23 AC 57 ms
23,284 KB
testcase_24 AC 55 ms
23,440 KB
testcase_25 AC 56 ms
23,692 KB
testcase_26 AC 55 ms
24,208 KB
testcase_27 AC 54 ms
24,208 KB
testcase_28 AC 55 ms
23,260 KB
testcase_29 AC 54 ms
24,220 KB
testcase_30 AC 54 ms
24,280 KB
testcase_31 AC 56 ms
23,248 KB
testcase_32 AC 54 ms
23,836 KB
testcase_33 AC 56 ms
23,428 KB
testcase_34 AC 54 ms
24,232 KB
testcase_35 AC 55 ms
23,392 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$|=<>;
@k=0..99;
for(0..49){
	$d0=sprintf("%02d",$_*2);
	$d1=sprintf("%02d",$_*2+1);
	@kc=@k;
	while(1){
		@q=('??')x100;
		$mc=$kc[@kc/2];
		for(@kc){
			$q[$_]=$_<$mc?$d0:$d1;
		}
		print"@q\n";
		$r=(glob<>)[2];
		if($r==0){
			@k0=grep{$_>=$mc}@kc;
			@k1=grep{$_<$mc}@kc;
			last;
		}
		if($r==1){
			@q=('??')x100;
			for(@kc){
				$q[$_]=$d0 if$_<$mc;
			}
			print"@q\n";
			$r=(glob<>)[2];
			if($r==0){
				@kc=grep{$_>=$mc}@kc;
			}else{
				@kc=grep{$_<$mc}@kc;
			}
		}
		if($r==2){
			@k0=grep{$_<$mc}@kc;
			@k1=grep{$_>=$mc}@kc;
			last;
		}
	}
	while(@k0>1&&@k1>1){
		@q=('??')x100;
		$m0=$k0[@k0/2];
		for(@k0){
			$q[$_]=$d0 if$_<$m0;
		}
		$m1=$k1[@k1/2];
		for(@k1){
			$q[$_]=$d1 if$_<$m1;
		}
		print"@q\n";
		$r=(glob<>)[2];
		if($r==0){
			@k0=grep{$_>=$m0}@k0;
			@k1=grep{$_>=$m1}@k1;
		}
		if($r==1){
			@q=('??')x100;
			for(@k0){
				$q[$_]=$d0 if$_<$m0;
			}
			print"@q\n";
			$r=(glob<>)[2];
			if($r==0){
				@k0=grep{$_>=$m0}@k0;
				@k1=grep{$_<$m1}@k1;
			}else{
				@k0=grep{$_<$m0}@k0;
				@k1=grep{$_>=$m1}@k1;
			}
		}
		if($r==2){
			@k0=grep{$_<$m0}@k0;
			@k1=grep{$_<$m1}@k1;
		}
	}
	while(@k0>1){
		@q=('??')x100;
		$m0=$k0[@k0/2];
		for(@k0){
			$q[$_]=$d0 if$_<$m0;
		}
		print"@q\n";
		$r=(glob<>)[2];
		if($r==0){
			@k0=grep{$_>=$m0}@k0;
		}
		if($r==1){
			@k0=grep{$_<$m0}@k0;
		}
	}
	while(@k1>1){
		@q=('??')x100;
		$m1=$k1[@k1/2];
		for(@k1){
			$q[$_]=$d1 if$_<$m1;
		}
		print"@q\n";
		$r=(glob<>)[2];
		if($r==0){
			@k1=grep{$_>=$m1}@k1;
		}
		if($r==1){
			@k1=grep{$_<$m1}@k1;
		}
	}
	@k=grep{$_!=$k0[0]&&$_!=$k1[0]}@k;
	$a[$k0[0]]=$d0;
	$a[$k1[0]]=$d1;
}
print"@a\n";
0