Re^2: Combinations of multiple arrays


Just another Perl shrine
	PerlMonks

Re^2: Combinations of multiple arrays

by Anonymous Monk

on Sep 08, 2020 at 21:34 UTC ( [id://11121499]=note: print w/replies, xml )

Need Help??

in reply to Re: Combinations of multiple arrays
in thread Combinations of multiple arrays

Notice that there is a mistake in above code. It should be NestedLoops with a CAPITAL L.

#/usr/bin/perl

use Algorithm::Loops qw( NestedLoops );

my @list = (
        [12,13,14,15],
        [6000,6001,6002,3150,3152],
        ['314456 C',
         '314484 D']);

my $i = NestedLoops(\@list);

while (my @set = $i->()) {
   print(join(',', @set), "\n");
}
[download]