テキトウな質問にテキトウに答えた。 http://code.nanigac.com/forum/view/402 %tree = (A => ['B','G'], B => ['C', 'E'], C => ['D'], E => ['F'], G => ['H'], H => ['I','J'], J => ['K'], ); &search('A'); sub search { my @stack = @_; my @childs = …