comment on

UPDATE this code is wrong as noticed by choroba and hippo. See below why

Hello Eily,

I find even more intuitive to use permutations directly:

use strict;
use warnings;
use feature 'say';
use Algorithm::Combinatorics qw(permutations);

my $zeros = 7;
my $ones = 3;

# if you want the iterator force scalar context, as in:
# my $iter = permutations(\@data); 

say join('',@$_) for permutations( [ (0) x $zeros, (1) x $ones] );
[download]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In reply to Re^2: Generate all unique combinations of 1 and 0 using specified length of "0"-string and count of 1's -- permutations by Discipulus
in thread Generate all unique combinations of 1 and 0 using specified length of "0"-string and count of 1's by Lana

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Clear questions and runnable code get the best and fastest answer
	PerlMonks