Re^2: possible combinations in sequence


There's more than one way to do things
	PerlMonks

Re^2: possible combinations in sequence

by liverpole (Monsignor)

on Jun 09, 2006 at 00:45 UTC ( [id://554397]=note: print w/replies, xml )

Need Help??

in reply to Re: possible combinations in sequence
in thread possible combinations in sequence

rhesa, I like your version.

Here's my somewhat golfed variation:

sub rhesa2 {
    my $source = shift;
    my @kw = split /:/, $source;
    map {
        my (@ar, $t);
        do {
            ($_ & 1) and push @ar, $kw[$t];
                $t++;
        } while ($_ >>= 1);
        join ':', @ar
    } ( 1 .. 2**@kw - 1 )
}

my @res = rhesa2('horse:cow:dog:cat');
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/