use strict; use warnings; use Algorithm::Permute; my @prdct = 55..66; my @prdct1 = 'a'..'f'; my $product = Algorithm::Permute->new( \@prdct ); my $product1 = Algorithm::Permute->new( \@prdct1 ); while ( my @res = $product->next ) { chomp @res; my $chk = join " + ", @res; print "chk:$chk\n"; $product1->reset; # Allow to iterate again while (my @res1 = $product1->next ) { chomp @res1; my $chk1 = join( ' + ', @res1); print "\tchk1:$chk1\n"; my $chk3 = "$chk <=> $chk1"; my $chk4 = "$chk1 <=> $chk"; } }
"Despite my privileged upbringing, I'm actually quite well-balanced. I have a chip on both shoulders." - John Nash
In reply to Re: nested while loops
by NetWallah
in thread nested while loops
by sivaratna
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |