ARM Club 3/TheARMClub_PDCD3.iso/hensa/programming/ada_1/Examples_ada_random_

Text File | 1994-08-14 | 438 b | 16 lines

-- ++
-- A superior Random Number Generator.
-- This generator is one of the class discovered by Marsaglia and Zaman
-- and printed in .EXE (Nov.1992).
-- The generator uses the subtractive method and has a period of just
-- under 2^1178 or 10^354. The generator is
--      Xn = X[n-24] - X[n-37] - b) MOD 2^32
-- where b is the borrow from the previous iteration.
-- --

package Random is

  function Random return Integer;

end Random;