random.adb

来自「Ada 2005 Training Notes.」· ADB 代码 · 共 16 行

package body Random is
   X: Small;

   procedure Init(Seed: Small) is
   begin
   	X := Seed mod Modulus;
   end Init;

   function Next return Small is
   begin
      X := X * Multiplier mod Modulus;
      return X;
   end Next;

   end Random;