はて日記

非循環有向グラフで、ある頂点から頂点までの全経路を探します。 This script finds all paths from a vertex to another. （注意点: 循環構造があると無限ループします） NOTE: cannot be used with cycles. use strict; use warnings; use Graph::Directed; use Data::Dumper; sub find_all_paths { my ($from, $dest) = @_; return [[$dest]] if $from eq $dest; return undef unless $g->is_reachable($from, $dest); my @paths; foreach my $edge ( $g->edges_from($from) ) { my