random number generator #268

make_state

Spec this none thisFlags rxdOwner #361Definer #268

Referenced by

• #20:crapsum line 10: $rng:make_state
• #98:voice_of line 8: $rng:make_state

Source

":make_state(seed) => Make a random-state from 'seed', which must be an integer.";
return args[1] || 1;

random

Spec this none thisFlags rxdOwner #361Definer #268

Referenced by

• #20:crapsum line 13: $rng:random
• #98:voice_of line 8: $rng:random
• #98:voice_of line 10: $rng:random

Source

":random(max, state) => Return a two-element list consisting of a random number between 1 and 'max' and a new random-state.";
{max, state} = args;
"FIXME: This is a terrible algorithm, don't use for anything important.  Should be a Mersenne Twister.";
a = 16807;
c = 0;
m = $maxint;
val = mod((a * state) + c, m);
return {mod(val, max) + 1, val};

gil

Spec this none thisFlags rxdOwner #361Definer #268

Referenced by

• #307:forge_name line 44: $rng:gil
• #307:forge_name line 47: $rng:gil

Source

"Given a max and a seed, return an int from 1 to max corresponding to the seed. f(seed) = ???";
{max, seed} = args;
seed = toint(seed);
r = seed + 447217;
save = ((r / 10) % 10) + 1;
r = r % (max * 10);
r = r + 191;
r = r * 93169;
r = r + 17;
r = (r % (max * save)) / save;
return r + 1;

test

Spec this none thisFlags rxdOwner #361Definer #268

Referenced by

none

Source

vname = args[1];
max = (length(args) > 1) ? args[2] | 100;
total = 0;
for x in [1..100]
val = this:(vname)(max, x);
player:tell(x, " => ", val);
total = total + val;
endfor
player:tell("Avg: ", total / 100);

test2

Spec this none thisFlags rxdOwner #361Definer #268

Referenced by

none

Source

vname = args[1];
max = (length(args) > 1) ? args[2] | 100;
total = 0;
for who in (players()[$ - 50..$])
x = toint(who);
val = this:(vname)(max, x);
player:tell(x, " => ", val);
total = total + val;
endfor
player:tell("Avg: ", total / 50);