/usr/share/maxima/5.38.1/tests/rtestmt19937.mac is in maxima-test 5.38.1-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | (random_state: make_random_state (987654321), 0);
0;
set_random_state (random_state);
done;
map (random, [2^16, 2^32, 2^64, 2^128]);
[23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];
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]);
[1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];
(L: makelist (random (2^32), i, 1, 1000), 0);
0;
apply ("+", L * makelist (i, i, 1, 1000));
1047661644052859;
map (random, [2^16, 2^32, 2^64, 2^128]);
[61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];
map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
[3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];
set_random_state (random_state);
done;
map (random, [2^16, 2^32, 2^64, 2^128]);
[23815, 1226283474, 14110244264496474887, 256880639077478706419109239557077996976];
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]);
[1832214229593881, 3554405100599231, 36172692743681, 705526283404820480];
(L: makelist (random (2^32), i, 1, 1000), 0);
0;
apply ("+", L * makelist (i, i, 1, 1000));
1047661644052859;
map (random, [2^16, 2^32, 2^64, 2^128]);
[61259, 1512147836, 5201588561757929978, 55876996326958407997738817869273087742];
map (fix, map (random, [1.0, 1.0*2^16, 1.0*2^32, 1.0*2^64]) * 2^52);
[3378087623307407, 950036134838534144, 12401473179864865699790848, 31898738619930029950889265274552320];
|