Re^3: I need help with some recursion

So don't apply it to all the lines. This seems to produce something close to your desired output:

my %seen;
for (my $i = 1; $i < @lines; $i++)
{
    next if $seen{$i};
    my @results = line_closure($i);
    print Dumper \@results;
    $seen{$_}++ for @results;
}
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^3: I need help with some recursion Download Code

Replies are listed 'Best First'.
Re^4: I need help with some recursion by ragnarokPP (Initiate) on Dec 08, 2012 at 14:59 UTC
it seems work perfect. thank you very much.	[reply]
Re^4: I need help with some recursion by ragnarokPP (Initiate) on Dec 08, 2012 at 15:10 UTC
thank you very much	[reply]