Select Code to Download

perl -e '@a=qw(g a t c g a t c g a t c); for(1..1000000){$x=int(1000*r
+and());$s.=$a[$x]} while($s=~/(?<repeat>\w{3,})\w*\g{repeat}/g){ $+{r
+epeat};$c=()=$s=~/$+{repeat}/g;print "$+{repeat} : $c\n"}'
agtcg : 0
agtcg : 0
agtcg : 0
^C

perl -e '@a=qw(g a t c g a t c g a t c); for(1..1000000){$x=int(1000*r
+and());$s.=$a[$x]} while($s=~/(?<repeat>\w{3,})\w*\g{repeat}/g){ $+{r
+epeat};$c=()=$s=~/$+{repeat}/;print "$+{repeat} : $c\n"}'
 : 1
 : 1
 : 1
 : 1

perl -e '@a=qw(g a t c g a t c g a t c); for(1..1000000){$x=int(1000*r
+and());$s.=$a[$x]} while($s=~/(?<repeat>\w{3,})\w*\g{repeat}/g){ $m=$
++{repeat};$c=()=$s=~/$m/;print "$m : $c\n"}'
gcacgt : 1
cga : 1
...
ttg : 1
tta : 1
cct : 1

perl -e '@a=qw(g a t c g a t c g a t c); for(1..1000000){$x=int(1000*r
+and());$s.=$a[$x]} while($s=~/(?<repeat>\w{3,})\w*\g{repeat}/g){ $m=$
++{repeat};$c=()=$s=~/$m/g;print "$m : $c\n"}'
gctgca : 0
gctgca : 0
gctgca : 0
^C