複数のリストから複数の親子要素の順序付きリストを生成するにはどうすればよいですか？

Question

私は最近ここに質問をし、非常にエレガントな答えを得ました。ここでは、次のとおりです。

ログインHow to generate an ordered list of parent-child elements from multiple lists?

私はここで別の木があることを意味重根、そこにすることができ、同様の問題を抱えています。以下はperlの例です。リスト@rulesのリストで

my @rules = (
    [ qw(A B C) ], 
    [ qw(B D E) ], 
    [ qw(C H G) ], 
    [ qw(G H ) ], 
    [ qw(Z C ) ] 
); 

、Aは、最初の要素は、リスト内の要素の残りの親であり、一般的にBおよびCの親です。

この一連の配列を処理し、正しい順序を含むリストを生成したいと考えています。ここでAとZは他の要素の前に来なければなりません（AとZの順序は独立しているので重要ではありません）。ここでは、2つの例のソリューションは、以下のとおりです。

(A,Z,B,C,D,E,F,G,H), or (Z,A,B,D,E,F,C,G,H) 

重要：配列番号3でルック。 Hは4番目の配列のGの子ですが、Gの前に来ます。したがって、各配列には子どもの特定の順序はありませんが、最後の結果（上に示されているように）には、子/レンになる前に親を持つ必要があります。

Answer 1

これはいかがですか？しかし、それはかなり簡単です。

my @rules = (
    [ qw(A B C) ], 
    [ qw(B D E F) ], 
    [ qw(C H G) ], 
    [ qw(G H ) ], 
    [ qw(Z C ) ] 
); 

my %weight_for; 
for (@rules) { 
    my ($parent, @children) = @{$_}; 
    $weight_for{$_}++ for ($parent, @children); 
    $weight_for{$_} += $weight_for{$parent} 
    for @children; 
} 

print "$_ = $weight_for{$_}\n" 
    for sort { $weight_for{$a} <=> $weight_for{$b} } keys %weight_for;