[Moscow.pm] Взрыв мозга или занимательная топология

[Ivan B. Serezhkin]

ПРодолжаю оющатся сам с собой.
> Путь ищется  перебором в глубину,
> my @queue=($begin_of_path);
> my @path=();
> my $element;
> while (@queue) {
>      my $element=pop @queue;
>      push @path, $element;

>      last if $element==$end_of_path;
>      if ($element->neighbors() -1) {
	push, @queue, $element;  # чтобы его ещё раз потрогать.
> 	shift  @queue, $element->neighbors(); # Не shift, а push
>      } else {
> 	$element->mark_deleted;
>      }
> }
> print "Path: " . join(' - ', grep {!$_->deleted} @path);
> Соответственно neighbors ищется без учёта deleted
> Таким образом, узел у которого отрезали все тупики сам становится тупиком
> 
> 
> 
> 


-- 
Ivan B. Serezhkin