home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adav313.zip
/
gnat-3_13p-os2-bin-20010916.zip
/
emx
/
gnat
/
examples
/
random_generic.adb
< prev
next >
Wrap
Text File
|
2000-07-19
|
653b
|
27 lines
--::::::::::
--random_generic.adb
--::::::::::
with Ada.Numerics.Discrete_Random;
package body Random_Generic is
-- Body of random number generator package.
-- Uses Ada 95 random number generator; hides generator parameters
-- Michael B. Feldman, The George Washington University,
-- June 1995.
package Ada95_Random is new Ada.Numerics.Discrete_Random
(Result_Subtype => Result_Subtype);
G: Ada95_Random.Generator;
function Random_Value return Result_Subtype is
begin
return Ada95_Random.Random(Gen => G);
end Random_Value;
begin
Ada95_Random.Reset(Gen => G); -- time-dependent initialization
end Random_Generic;