Help for this page

Select Code to Download


  1. or download this
    if (      ($genome[$i] eq 'a') 
       && ($genome[$i+1] eq 'a')) { ++$tt; }
...
       && ($genome[$i+1] eq 'a')) { ++$ta; }

...
  2. or download this
    my $genome =   $genome[$i];
my $genome1 =  $genome[$i+1];
...
       && ($genome1 eq 'a')) { ++$ta; }

...
  3. or download this
    my $genomepair =   $genome[$i] . $genome[$i+1];

...
elsif (   $genomepair eq 'ta')  { ++$ta; }

...