Pseudo-random numbers/Splitmix64: Difference between revisions

 

=={{header|Ada}}==

The random number functions are written in a stand-alone package. The package is split into a package specification defining the interfaces to the public subprograms and a body containing the implementation of the random number generator.

 

procedure Main is

subtype idx is Integer range 0 .. 4;

Vec : answer_arr := (others => 0);

fj : Float;

begin

for I in 1 .. 100_000 loop

fj := Float'Truncation (next_float * 5.0);

Vec (J) := Vec (J) + 1;

end loop;

 

for I in Vec'Range loop

end loop;

 

{{out}}

<pre>

4593380528125082431

16408922859458223821

2: 20073

</pre>