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.
