Select Code to Download

<ACACGAAGCGCTCGTGTGATTATCT>
x_cap_i: 7521  x_cap: 7521  x_i: 7521  x: 7521
...
x_i       33.3/s    477%  405%       81%  74%   66%   16%      7%   --
+ -55% -56%
idx       74.1/s   1183% 1023%      302% 287%  269%  157%    138% 122%
+   --  -3%
x         76.3/s   1222% 1057%      315% 299%  280%  165%    145% 129%
+   3%   --

$cnt++ while $pos = 1 + index $str, 'AA', $pos;

sub lc_x_cap_i {
    my ($str, $cnt) = @_;
...
    ++$cnt while $str =~ /aa/gi;
    return $cnt;
}

<AGGTATGATGGTGTAGAGTAACTAG>
x_cap_i: 7506  lc_x_cap_i: 7506  x_cap: 7506  x_i: 7506  lc_x_i: 7506 
+ x: 7506
...
lc_x_i     31.7/s        15%       13%        0%        --        -2% 
+      -61%
x_i        32.4/s        17%       16%        2%        2%         -- 
+      -60%
x          81.3/s       193%      190%      157%      156%       151% 
+        --