random.ads

来自「Ada 2005 Training Notes.」· ADS 代码 · 共 8 行

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;