Re^4: Perl6 Contest #2: P6 That Doesn't Look Like P5


more useful options
	PerlMonks

Re^4: Perl6 Contest #2: P6 That Doesn't Look Like P5

by tall_man (Parson)

on Jun 06, 2005 at 21:29 UTC ( [id://464095]=note: print w/replies, xml )

Need Help??

in reply to Re^3: Perl6 Contest #2: P6 That Doesn't Look Like P5
in thread Perl6 Contest #2: P6 That Doesn't Look Like P5

Roy, I tried your code on the documentation example:

my $N = 4;
my $depth = 3;
my $i2 = nested_for([   [ 0..$N ],
             ( sub { [$_+1..$N] } ) x ($depth-1),
         ]);
print "@args\n" while @args = $i2->();
[download]

There seems to be a problem when the range hits the top. The output is:

Comment on Re^4: Perl6 Contest #2: P6 That Doesn't Look Like P5 Select or Download Code

Replies are listed 'Best First'.

Re^5: Perl6 Contest #2: P6 That Doesn't Look Like P5
by Roy Johnson (Monsignor) on Jun 06, 2005 at 23:36 UTC

[5..4]

NB: my code does not run under 5.8.1 (on a Mac). I don't know why, and I can't get 5.8.6 to compile. Grrr. I hate it when my PC works better than my Mac.

Update: and to answer my own question, I looked at what NestedLoops does. Sensibly enough, it does no iterations when there's a no-iteration loop. You can get this behavior by making the last line of nest be return((@out and @in) ? (@out, @in) : ());

Caution: Contents may have been coded under pressure.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom