Help for this page
my %children = ( 'a' => [ 'b', 'c' ], ... sub children { @{$children{$_[0]} || []}; } my @unsorted = ( 'z', 'a', 'x', 'c', 'b', 'y' ); my @sorted = toposort(\&children, \@unsorted);
www.com | www.net | www.org
No recent polls found