Logo

Programming-Idioms

  • Rust
  • Fortran

Idiom #69 Seed random generator

Use seed s to initialize a random generator.

If s is constant, the generator output will be the same each time the program runs. If s is based on the current value of the system clock, the generator output will be different each time.

  call random_seed(size = n)
  allocate(seed(n))
  ! ...
  call random_seed(put=seed)

seed is an allocatable variable.
use rand::{Rng, SeedableRng, rngs::StdRng};
let s = 32;
let mut rng = StdRng::seed_from_u64(s);
with Ada.Numerics.Discrete_Random;
declare
   Package Rand is new Ada.Numerics.Discrete_Random (Integer);
   Gen : Rand.Generator;
begin
   Rand.Reset (Gen, Initiator => S);
end;

You can also Save the state of the generator and Reset with that state later to continue the (pseudo-random) sequence.
New implementation...
< > ⌨
programming-idioms.org 
  call random_seed(size = n)
  allocate(seed(n))
  ! ...
  call random_seed(put=seed)

let s = 32;
let mut rng = StdRng::seed_from_u64(s);
declare
   Package Rand is new Ada.Numerics.Discrete_Random (Integer);
   Gen : Rand.Generator;
begin
   Rand.Reset (Gen, Initiator => S);
end;
srand(s);
srand(s);
var random = new Random(s);
auto s = 8;
auto gen = Random(s);
writeln(gen.front);
var r = new Random(s);

:random.seed(s)
r := rand.New(rand.NewPCG(s, s))
r := rand.New(rand.NewSource(s))
System.Random.mkStdGen s

seed (s)
Random r = new Random(s);
val random = Random(seed=s)
call random_seed (put=s)
math.randomseed(s)
srand($s);
var
  SomeInteger: Integer;
  Value: double;
begin
  ...
   //initializes the PRNG's seed with a value depensing on system time
  Randomize; 
  Value := random;
  ...
   //Output will be the same eacht time the program runs
  RandSeed := SomeInteger; 
  Value := random;
...
end.
srand($s);
rand = random.Random(s)
r = Random.new(s)