Hi

By the way - here is my version. Just store it in some $PERL5LIB/Math/Log10.pm:

sub log10
{
return log(shift)/log(10);
}

1;

If speed is what you want, then

  use constant ILOG10 => 0.434294481903252; # 1.0/log(10.0)

  sub log10 { ILOG10*log(shift) }


or even use

  ILOG10*log($anything)

in your code without calling any sub

Bye,

  - Salvador.

Reply via email to