Re: Random number generation

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

Dmitry A. Kazakov wrote:

> BTW, a sum of n realizations of a uniformly distributed random number is
> distributed uniformly with the factor n. So you need not to run a cycle
> within Roll:
> 
>    function Roll
>             (  Dice     : Generator;
>                Number   : in Positive;
> 		   Size     : in Positive;
> 		   Modifier : in Integer := 0
>             )  return Integer is 
>    begin
>       return Number * ((Random (Dice) mod Size) + 1) + Modifier;
>    end Roll;

I don't think that gives uniformly distributed numbers, since it only 
produces results that are some multiple of Number, plus the Modifier. 
The OP's implementation gives a more uniform result.

The multiplication formula might work for floating-point values, 
depending on how fine-scaled uniformity is needed.

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .