wl_lib_0.1.3_1c94dc7c/src/wl-random.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
--  A quick'n'dirty interface to Ada.Numerics.Discrete_Random,
--  so that you don't have to instantiate it yourself.

package WL.Random is
   pragma Elaborate_Body;

   function Random_Number (Max : Natural) return Natural;
   function Random_Number (Min, Max : Integer) return Integer;

   procedure Randomise;
   procedure Reset (Initiator : Integer);

   function Current_State return String;
   procedure Restore_State (State : String);

end WL.Random;