結果

問題 No.2085 Directed Complete Graph
ユーザー tailstails
提出日時 2022-09-29 20:19:41
言語 Perl
(5.38.2)
結果
AC  
実行時間 94 ms / 2,000 ms
コード長 681 bytes
コンパイル時間 505 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 25,452 KB
平均クエリ数 2458.82
最終ジャッジ日時 2024-06-02 02:07:14
合計ジャッジ時間 3,361 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 23 ms
24,836 KB
testcase_01 AC 21 ms
25,220 KB
testcase_02 AC 88 ms
25,196 KB
testcase_03 AC 81 ms
25,452 KB
testcase_04 AC 94 ms
24,812 KB
testcase_05 AC 51 ms
25,160 KB
testcase_06 AC 56 ms
25,196 KB
testcase_07 AC 88 ms
25,196 KB
testcase_08 AC 73 ms
24,940 KB
testcase_09 AC 89 ms
25,196 KB
testcase_10 AC 89 ms
25,180 KB
testcase_11 AC 90 ms
25,196 KB
testcase_12 AC 89 ms
24,940 KB
testcase_13 AC 89 ms
25,196 KB
testcase_14 AC 91 ms
25,196 KB
testcase_15 AC 21 ms
24,580 KB
testcase_16 AC 22 ms
24,836 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

# hayai kana?

sub f{
	my($i)=@_;
	if($a[$i][1]==-2){
		$a[$i][0]=-1;
	}else{
		my$c1=$i*2+1;
		my$c2=$i*2+2;
		my$c;
		if($a[$c1][0]<0){
			$c=$c2;
		}elsif($a[$c2][0]<0){
			$c=$c1;
		}elsif($a[$i][1]>=0){
			$c=$i[$a[$i][1]]?$c1:$c2;
		}
		if($c){
			$a[$i][1]=-1;
			$a[$i][0]=$a[$c][0];
			$a[$c][0]=0;
		}
		if($a[$c1][0]==0){
			f($c1);
		}
		if($a[$c2][0]==0){
			f($c2);
		}
		if($a[$c1][0]>0&&$a[$c2][0]>0){
			$a[$i][1]=$iid++;
			print"? $a[$c1][0] $a[$c2][0]\n";
		}
	}
}

$n=<>;
@a=(map([0,-1],0..$n-2),map([$_,-2],1..$n));

while(@b<$n){
	f(0);
	if($a[0][0]>0){
		push@b,$a[0][0];
		$a[0][0]=0;
	}
	$|=1;
	$|=0;
	while(@i<$iid){
		push@i,0+<>;
	}
}

print"!
$#b
@b"
0