Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Seperating Compound Lists

by edoc (Chaplain)
on Feb 11, 2005 at 02:12 UTC ( #429966=note: print w/replies, xml ) Need Help??

in reply to Seperating Compound Lists

my @sets; for $x(1..3){ my @products; for $y(1..3){ $pro = $x ** $y; push @products, $pro; } push @sets, \@products; } use Data::Dumper; print Data::Dumper->Dumper(\@sets);



Replies are listed 'Best First'.
Re^2: Separating Compound Lists
by Roy Johnson (Monsignor) on Feb 11, 2005 at 02:40 UTC
    And most of the time, a for/push combination converts very naturally to a map:
    my @sets; for my $x (1..3){ my @products = map { $x ** $_ } (1..3); push @sets, \@products; } use Data::Dumper; print Dumper(\@sets);
    Then we still have a for/push. Since we have to use $_ for our loop variable in map, it might seem a little tricky, but we're nesting these, so we can do this:
    my @sets = map { my $x = $_; # Copy outer loop variable my @products = map { $x ** $_ } (1..3); \@products; } (1..3);
    Of course, there's no real need for the @products array:
    my @sets = map { my $x = $_; # Copy outer loop variable [map { $x ** $_ } (1..3)]; } (1..3);

    Caution: Contents may have been coded under pressure.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://429966]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2022-01-17 01:40 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (50 votes). Check out past polls.