結果

問題 No.624 Santa Claus and The Last Dungeon
ユーザー tailstails
提出日時 2017-12-24 02:25:59
言語 Perl
(5.38.2)
結果
WA  
実行時間 -
コード長 1,633 bytes
コンパイル時間 518 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 25,464 KB
平均クエリ数 469.58
最終ジャッジ日時 2024-07-16 15:08:05
合計ジャッジ時間 6,944 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 69 ms
24,824 KB
testcase_01 AC 70 ms
24,824 KB
testcase_02 AC 70 ms
25,208 KB
testcase_03 AC 71 ms
24,824 KB
testcase_04 AC 69 ms
24,940 KB
testcase_05 AC 70 ms
25,208 KB
testcase_06 AC 70 ms
24,568 KB
testcase_07 AC 66 ms
25,100 KB
testcase_08 AC 64 ms
24,440 KB
testcase_09 AC 66 ms
25,208 KB
testcase_10 AC 64 ms
24,952 KB
testcase_11 AC 65 ms
25,464 KB
testcase_12 AC 64 ms
24,952 KB
testcase_13 AC 65 ms
25,208 KB
testcase_14 AC 65 ms
24,568 KB
testcase_15 AC 64 ms
25,208 KB
testcase_16 AC 65 ms
24,824 KB
testcase_17 AC 66 ms
25,464 KB
testcase_18 AC 63 ms
24,832 KB
testcase_19 AC 64 ms
24,824 KB
testcase_20 AC 64 ms
24,440 KB
testcase_21 AC 67 ms
24,952 KB
testcase_22 AC 66 ms
25,208 KB
testcase_23 AC 65 ms
25,208 KB
testcase_24 WA -
testcase_25 WA -
testcase_26 WA -
testcase_27 WA -
testcase_28 WA -
testcase_29 WA -
testcase_30 WA -
testcase_31 WA -
testcase_32 WA -
testcase_33 WA -
testcase_34 AC 64 ms
25,208 KB
testcase_35 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
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{$_ ne$k0[0]&&$_ ne$k0[1]}@k;
	$a[$k0[0]]=$d0;
	$a[$k1[0]]=$d1;
}
print"@a\n";
0