Anything · Lazarus or Delphi

RandomManager

Random Algorithm Selector

Member rating

No ratings yet.

Random Algorithm Selector

delphi

uses
  PK.Math.Random.RandomManager;

procedure Sample;
begin
  TRandomManager.Current.SetAlgo('XorShift');

  Randomize;
  Writeln(Random(10));
end;

Algorithms	Text	Unit
Linear congruential generators	LCG	PK.Math.Random.LCG.pas
CNG Random	CNG	PK.Math.Random.CNG.pas
XorShift	XorShift	PK.Math.Random.XorShift.pas
MersenneTwister	MT	PK.Math.Random.MersenneTwister.pas

2024/12/12 FirstRelease