結果

問題 No.483 マッチ並べ
コンテスト
ユーザー tails
提出日時 2017-02-10 23:34:55
言語 Perl
(5.40.0)
結果
AC  
実行時間 5 ms / 2,000 ms
コード長 232 bytes
コンパイル時間 898 ms
コンパイル使用メモリ 7,204 KB
実行使用メモリ 5,760 KB
最終ジャッジ日時 2024-12-29 11:17:07
合計ジャッジ時間 2,536 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 53
権限があれば一括ダウンロードができます
コンパイルメッセージ
Name "main::i" used only once: possible typo at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff # 

$n=<>;
for$i(1..$n){
	<>=~/(.* .*) (.* .*)/;
	push@$1,$2;
	push@$2,$1;
	push@a,$1,$2;
}

sub f {
	$a="@_";
	@$a=grep{!$$a{$_}}@$a;
	if(@$a==1){
		$z=pop@$a;
		$$a{$z}=$$z{$a}=1;
		f($z);
	}
}

f$_ for@a;
print grep(@$_>2,@a)?NO:YES
0