home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / TEST / RANDOM_I.ADA < prev    next >
Encoding:
Text File  |  1990-06-28  |  477 b   |  18 lines
  1. package random_integer is
  2.   function next return integer;
  3. end random_integer;
  4.  
  5. package body random_integer is
  6.   x : integer := 737;
  7.  
  8.   function next return integer is
  9.     n : integer;
  10.   begin
  11.     x := x * 29 + 37;           -- Perform random operations
  12.     n := x;                     -- Save result
  13.     x := x mod 1000;            -- Insure that next multiply does't overflow
  14.     return n;                   -- Return result;
  15.   end next;
  16.  
  17. end random_integer;
  18.