($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; } }