Help for this page

Select Code to Download


  1. or download this
    my %occurrences;
push @{$occurrences{$sequence[$_]}}, $numbers[$_]
   foreach (0 .. $#sequence);
  2. or download this
    my $sum;
$sum += $_ foreach (@{$occurrences{'atcg'}});
my $average = $sum / scalar(@{$occurrences{'atcg'}});