random.adb

Ada 2005 Training Notes.

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;