Re: Creating tuples based on sets


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: Creating tuples based on sets

by The Mad Hatter (Priest)

on Apr 16, 2003 at 14:55 UTC ( [id://250917]=note: print w/replies, xml )

Need Help??

in reply to Creating tuples based on sets

You'll have to have multiple foreach loops that go through each item in the set. For tuples of size 2, you'll need two. For tuples of size 3, you'll need three. You get the idea. You might be able to use Algorithm::Loops to help you with this.

Comment on Re: Creating tuples based on sets

Replies are listed 'Best First'.

Re^2: Creating tuples based on sets (nested loops)
by tye (Sage) on Apr 16, 2003 at 17:35 UTC

Exactly what I was thinking. (:

sub tuples {
    my( $count, @set )= @_;
    my @out;
    nestedLoops(
        [ ([0..$#set]) x $count ],
        { Code => sub { push @out, [@set[@_]] } }
    );
    return \@out;
}
my $tuples= tuples( 2, qw(A B C) );
for my $tuple (  @$tuples  ) {
    print "@$tuple\n";
}
[download]

sub tupleMaker {
    my( $count, @set )= @_;
    my $iter= nestedLoops( [ ([0..$#set]) x $count ] );
    return sub { @set[ $iter->() ] };
}
my $gen= tupleMaker( 2, qw(A B C) );
while(  my @tuple= $gen->()  ) {
    print "@tuple\n";
}
[download]

tye

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom