comment on

Loops, thank you kindly for your solution.

For testing, the following code generated all, up to 4 in length, possible permutations with repetition of ACGT; the inclusion of incorrect characters can be added later by hand.

#!/usr/bin/perl
# usage: ./generate_ACGT_01.pl
use strict;
use warnings;
use Math::Combinatorics;
#
my @n = qw(A C G T);
my $o1 = Math::Combinatorics->
  new(count=>1, data=>[@n], frequency=>[1, 1, 1, 1]);
my $o2 = Math::Combinatorics->
  new(count=>2, data=>[@n], frequency=>[2, 2, 2, 2]);
my $o3 = Math::Combinatorics->
  new(count=>3, data=>[@n], frequency=>[3, 3, 3, 3]);
my $o4 = Math::Combinatorics->
  new(count=>4, data=>[@n], frequency=>[4, 4, 4, 4]);
my @b = ();
#
foreach my $o ($o1, $o2, $o3, $o4) {
    while(my @ox = $o->next_multiset) {
      my $p = Math::Combinatorics->
    new(data=>\@ox, frequency=>[map{1} @ox]);
      while(my @oy = $p->next_string) {
    push@b, join('', @oy);
      }
    }
}
#
foreach my $e (@b) {
  foreach my $f (@b) {
    print$e.','.$f."\n"
  }
}
# eof
[download]

test program:

#!/usr/bin/perl
# usage: | test_ACGT_01.pl
use strict;
use warnings;
## no valued added (petty) to Loops try 2 : Y
#my $side = qr/(?:([ACGT])(?![^,]*\g{-1})){1,4}/;
## try 1 from Loops : N
#my $side = qr/(?:([ACGT])(?![^,]*\1))+/;
## try 2 from Loops : Y
my $side = qr/(?:([ACGT])(?![^,]*\g{-1}))+/;
##
while (<>) {
  chomp;
  print "$_ ". (/^$side,$side$/ ? 'Y' : 'N') . $/;
}
# eof
[download]

and then:

$ ./generate_ACGT_01.pl > y
$ cat y | ./test_ACGT_01.pl > x
$ less x
[download]

Robert

In reply to Re^2: Regular expression for a comma separated string by naderra
in thread Regular expression for a comma separated string by naderra

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.


go ahead... be a heretic
	PerlMonks