結果

問題 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
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0