File Coverage

blib/lib/Math/Random/LogUniform.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	24	75.0

package Math::Random::LogUniform;

use strict;
use warnings;

use Exporter qw(import);
use POSIX qw(floor);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-28'; # DATE
our $DIST = 'Math-Random-LogUniform'; # DIST
our $VERSION = '0.001'; # VERSION

our @EXPORT_OK = qw(logrand);

sub logrand {
    my ($min, $max) = @_;

    exp(log($min) + rand()*(log($max) - log($min)));
}

sub logirand {
    my ($min, $max) = @_;

    floor(exp(log($min) + rand()*(log($max) - log($min))));
}

1;
# ABSTRACT: Generate log-uniform random numbers

__END__