結果
問題 | No.1640 簡単な色塗り |
ユーザー |
![]() |
提出日時 | 2021-08-10 21:51:37 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 736 ms / 2,000 ms |
コード長 | 579 bytes |
コンパイル時間 | 150 ms |
コンパイル使用メモリ | 7,072 KB |
実行使用メモリ | 81,152 KB |
最終ジャッジ日時 | 2024-06-29 17:06:24 |
合計ジャッジ時間 | 29,348 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 52 TLE * 1 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub muri{ print"No\n"; exit; } $n=<>; @evv=map{ ($a,$b)=<>=~/\w+/g; push@$a,$_; push@$b,$_; $a+$b; }0..$n-1; @vn=map~~@$_,0..$n; @q=grep$vn[$_]==1,1..$n; while(@q){ $vi=pop@q; $vn[$vi]=-1; for$ei(grep!$ans[$_],@$vi){ $vj=$evv[$ei]-$vi; $d=--$vn[$vj]; if($d==0){ muri; } $ans[$ei]=$vi; if($d==1){ push@q,$vj; } } } for$vi(1..$n){ if($vn[$vi]>=0){ $vo=$vi; do{ $vn[$vi]=-1; for$ei(grep!$ans[$_],@$vi){ $ans[$ei]=$vi; $vi=$evv[$ei]-$vi; goto hoge; } muri; hoge:; }while($vi!=$vo); } } print $_,$/ for Yes,@ans;