Programming-Idioms

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)

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

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)

let s = 32;
let mut rng = StdRng::seed_from_u64(s);