結果

問題 No.624 Santa Claus and The Last Dungeon
コンテスト
ユーザー tails
提出日時 2017-12-24 02:25:59
言語 Perl
(5.40.0)
結果
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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 25 WA * 11
権限があれば一括ダウンロードができます
コンパイルメッセージ
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