tests/rtestmt19937.mac

   1 (random_state: make_random_state (987654321), 0);
   2 0;
   3
   4 set_random_state (random_state);
   5 done;
   6
   7 map (random, [2^16, 2^32, 2^64, 2^128]);
   8 [23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];
   9
  10 map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * [2^52, 2^(52-16), 2^(52-32), 1]);
  11 [1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];
  12
  13 (L: makelist (random (2^32), i, 1, 1000), 0);
  14 0;
  15
  16 apply ("+", L * makelist (i, i, 1, 1000));
  17 1047661644052859;
  18
  19 map (random, [2^16, 2^32, 2^64, 2^128]);
  20 [61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];
  21
  22 map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
  23 [3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];
  24
  25 set_random_state (random_state);
  26 done;
  27
  28 map (random, [2^16, 2^32, 2^64, 2^128]);
  29 [23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];
  30
  31 map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * [2^52, 2^(52-16), 2^(52-32), 1]);
  32 [1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];
  33
  34 (L: makelist (random (2^32), i, 1, 1000), 0);
  35 0;
  36
  37 apply ("+", L * makelist (i, i, 1, 1000));
  38 1047661644052859;
  39
  40 map (random, [2^16, 2^32, 2^64, 2^128]);
  41 [61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];
  42
  43 map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
  44 [3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];
  45