![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl use strict; use warnings; use Set::CrossProduct; my @a1 = qw/grün rot schwarz/; my @a2 = qw/s m l xl/; my @a3 = qw/ 100 120 140 160 170 180/; my @sets = (\@a1, \@a2, \@a3 ); my $set = Set::CrossProduct->new( \@sets ); my $tuples = $set->combinations; for my $tuple ( @$tuples ){ print "@$tuple\n"; }
for (@a1 X @a2 X @a3) {say @^a} ;
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |