Help for this page

Select Code to Download


  1. or download this
    'A'    => 1,
'G'    => 2,
'AG'   => 1,
'GG'   => 1,
'AGG'  => 1,
  2. or download this
    use warnings; use strict;

...
   next unless defined $rolling[0]; 
   $count{join('',@rolling)}++;      #three-char count
}
  3. or download this
    my @chars = qw[A C G T];
for my $aleph (0..$#chars) {
...
      }
   }
}
  4. or download this
    60 wallclock secs (59.19 usr +  0.03 sys = 59.22 CPU) @  0.02/s (n=1)
  5. or download this
    for ( reverse(0..$#rolling) ) {
   next unless defined $_-@rolling;
   $count{join('',@rolling[$_-@rolling,-1])}++;
}