結果

問題 No.2085 Directed Complete Graph
ユーザー 👑 tails
提出日時 2022-09-27 16:55:11
言語 Perl
(5.42.1)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 69 ms / 2,000 ms
コード長 180 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 223 ms
コンパイル使用メモリ 6,528 KB
実行使用メモリ 30,052 KB
平均クエリ数 2472.00
最終ジャッジ日時 2026-05-28 21:45:18
合計ジャッジ時間 2,632 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 15
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

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