結果

問題 No.2085 Directed Complete Graph
ユーザー tails
提出日時 2022-09-27 16:55:11
言語 Perl
(5.40.0)
結果
AC  
実行時間 178 ms / 2,000 ms
コード長 180 bytes
コンパイル時間 382 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 25,196 KB
平均クエリ数 2472.00
最終ジャッジ日時 2024-12-22 16:59:48
合計ジャッジ時間 3,821 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 15
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

sub f{
	if($#_){
		my@a=f(splice@_,@_/2);
		@b=f(splice@_);
		push@_,shift@{print("? $a[0] $b[0]\n")*<>?\@a:\@b}while@a*@b;
		push@_,@a,@b;
	}
	@_;
}
@a=f++$|..<>;
print"!
$#a
@a"
0