Re^2: finding matches in the same array


more useful options
	PerlMonks

Re^2: finding matches in the same array

by bageler (Hermit)

on Apr 13, 2005 at 18:07 UTC ( [id://447540]=note: print w/replies, xml )

Need Help??

in reply to Re: finding matches in the same array
in thread finding matches in the same array

let's reduce the loops by calculating the average as we move along:

my %oc;
for (0 .. $#sequence) {
  $oc{$sequence[$_]}[0] =
    ($oc{$sequence[$_]}[0]+$numbers[$_])/(++$oc{$sequence[$_]}[1]);
}
foreach my $seq (keys %oc) {
  print "The average for $seq is ".$oc{$seq}[0].$/;
}
[download]

Comment on Re^2: finding matches in the same array Download Code

Replies are listed 'Best First'.

Re^3: finding matches in the same array
by polettix (Vicar) on Apr 13, 2005 at 18:19 UTC

my %oc;
for (0 .. $#sequence) {
  $oc{$sequence[$_]}[0] += $numbers[$_];
  ++$oc{$sequence[$_]}[1];
}
foreach my $seq (keys %oc) {
  print "The average for $seq is ".($oc{$seq}[0] / $oc{$seq}[1]).$/;
}
[download]

Flavio (perl -e "print(scalar(reverse('ti.xittelop@oivalf')))")

Don't fool yourself.

[reply]
[d/l]

In Section Seekers of Perl Wisdom