Help for this page

Select Code to Download


  1. or download this
    for my $i (1..$depth-1) {
    my $val = 1 + 2*$i;
    push @$loop, sub {[$_+1..$val]};
}
  2. or download this
    my $val= 3;
for my $i (  1 .. $depth-1  ) {
...
    push @$loop, sub {[$_+1..$end]};
    $val += 2;
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
sub output {
    print join '', @_, "\n";
}