結果
問題 | No.416 旅行会社 |
ユーザー |
![]() |
提出日時 | 2016-08-26 23:20:28 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,418 ms / 4,000 ms |
コード長 | 384 bytes |
コンパイル時間 | 501 ms |
コンパイル使用メモリ | 6,820 KB |
実行使用メモリ | 170,892 KB |
最終ジャッジ日時 | 2024-12-14 19:54:26 |
合計ジャッジ時間 | 14,360 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 21 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($n,$m,$q)=glob<>; for(1..$m){ $ab{<>}=1; } for(1..$q){ delete $ab{$cd[$_]=<>}; } for(keys%ab){ / /; push @{$`+0},$'+0; push @{$'+0},$`+0; } $d=-1; f(1); for$d(reverse 1..$q){ $cd[$d]=~/ /; push @{$`+0},$'+0; push @{$'+0},$`+0; f($`+0) if $v[$']; f($'+0) if $v[$`]; } for(2..$n){ print $v[$_]+0,$/; } sub f { my($p)=@_; if(!$v[$p]){ $v[$p]=$d; f($_) for@$p; } }