Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Lisp

Idiom #70 Use clock as random generator seed

Get the current datetime and provide it as a seed to a random generator. The generator sequence will be different at each run.

(setf *random-state* (make-random-state t))

This doesn't necessarily use the datetime as there is no portable way to initialize the lisp random-state from an integer.

This is the idiomatic way of getting a random-state that differs with each run.
#include <stdlib.h>
#include <time.h>
srand((unsigned)time(0));
New implementation...
< > ⌨
deleplace 
(setf *random-state* (make-random-state t))
srand((unsigned)time(0));
Random rng = new Random(DateTime.Now.Day);
auto rng = Random(cast(uint)Clock.currTime.stdTime);
rndGen.seed(cast(uint)Clock.currTime.stdTime);
var r = new Random(new DateTime.now().millisecondsSinceEpoch);
  call random_seed (size=k)
  allocate (seed(k))
  call date_and_time (values=val)
  seed = [(173*i**2+4567,i=1,k)]
  m = min(8,k)
  seed(1:m) = seed(1:m) + val(m:1:-1)
  call random_seed (put=seed)
r := rand.New(rand.NewSource(time.Now().UnixNano()))
getStdGen

Math.random ()
Random rand = new Random(System.currentTimeMillis());
math.randomseed( os.time() )
srand(time());
Randomize;
srand time;
rand = random.Random()
Random.new
let d = SystemTime::now()
    .duration_since(SystemTime::UNIX_EPOCH)
    .expect("Duration since UNIX_EPOCH failed");
let mut rng = StdRng::seed_from_u64(d.as_secs());