What does this regular expression do ? See it in action in the following snippet …
for ($n=1;$n<=100;$n++)
{if ((1 x $n) !~ /^1?$|^(11+?)\1+$/)
{print "$n\t";}}
Bioinformatics.be
Wim Van Criekinge @ University of Ghent
What does this regular expression do ? See it in action in the following snippet …
for ($n=1;$n<=100;$n++)
{if ((1 x $n) !~ /^1?$|^(11+?)\1+$/)
{print "$n\t";}}