Hi All,

This has probably already been written but I did not see it on CPAN.
Is there a code snippent that can print every possible combination
of Y/N's in a 5 position array or string?

For example: Y Y Y Y Y becomes
N Y Y Y Y
Y N Y Y Y....
Y Y N N Y etc.

Here is my first attempt but it only handles a single field change
moving from left to right etc...

Thanks, --Joe Mac.

#!/usr/bin/perl

my @array = qw(Y Y Y Y Y);

&jumble(0);
&jumble(1);
&jumble(2);
&jumble(3);
&jumble(4);

On Mar 31, 4:57 pm, joemacbusin...@yahoo.com wrote:

Who gets the credit for doing your homework?

On Mar 31, 1:57 pm, joemacbusin...@yahoo.com wrote:

If I understand you correctly, it sounds like a 5-bit binary with N
and Y instead of 0 and 1. Try looping through numbers 0..31 (max 5-bit
number) and call some transforming function (let's call it to_string),
which would loop trough the bits and produce a string of Ys and Ns
accordingly. I intentionally give you just an idea, so you could be
proud of yourself implementing it :) It will take some 15 lines of
code.

/sandy
http://myperlquiz.com/

smallpond wrote:

I do, I hope. :)

joemacbusiness@yahoo.com wrote:

I am sure it has been written many times. Search for permutation with
repetitions.

However, just for the fun of it, here's yet another implementation:

for (0..2**5-1) {
$_ = sprintf "%%05b", $_;
s/0/N/g;
s/1/Y/g;
print "$_\n";
}

On Mar 31, 2:36 pm, Jürgen Exner hotmail.com> wrote:

Uri Guttman wrote:

Gunnar Hjalmarsson wrote:

Much too wordy ;-)

perl -e' print "$_\n" while glob"{Y,N}"x5'

Regards

M.

Mirco Wahab wrote:

I concur.

perl -le'print for glob"{Y,N}"x5'

John