mod_rands

[DCelso]

Bueno, pues la he programado en bennu y parece que va bien y todo :D.

Code Select Expand


import "mod_say"
import "mod_time"
global
seed;
end
function srand(value)
begin
seed = value;
end

function rand()
begin
seed = seed * 214013 + 2531011;
return ( (seed >> 16) & 07fffh);
end

function rand_between(vstart, vend)
begin
return (rand() % (vend-vstart+1) +vstart);
end


process main()
private
i;
valor;
float media;
numeros = 1000;
begin

srand(time());
for (i=0;i<numeros;i++)
valor = rand();
say(valor);
media= media +valor;
end
media = media /numeros;
say("media:"+media);

media = 0;
for (i=0;i<1000;i++)
valor = rand_between(10,20);
say(valor);
media= media +valor;
end
media = media /numeros;
say("media:"+media);

end


[Drumpi]

Yo he visto un generador de números aleatorios en hardware, que si está bien hecho es cíclico y se dan todos los números, a base de desplazamientos y puertas XOR, así que... ;D