random.ads

Ada 2005 Training Notes.

package Random is
   Modulus: constant Integer := 2 ** 13;
   subtype Small is Integer range 0 .. Modulus;
   Multiplier: constant Integer := 5 ** 5;
   procedure Init(Seed: Small);
   function Next return Small;
end Random;