Topic: ( Challenge ) Random number generator

[Mark]

Create your very own random number generator.

[Troy Williams]

Does this count?

[Troy Williams]

I forgot to add, here is some interesting reading.

[Crank]

Just do some things with a timer:

Code: [Select]

(defun c:random ()
(if (not seed)(setq seed 0))
(setq seed (+ (getvar "TDUSRTIMER") seed) seed (+ seed (* seed (+ seed pi) 0.731)) seed (rem seed 1))
)
Just to be sure the result is random enough the variable seed is global.

[LE]

Code: [Select]

(defun ran ()
(setq seed (if seed (rem (+ (* seed 15625.7) 0.21137152) 1) 0.3171943)))


[LE]

Code: [Select]

unsigned long randomnation(unsigned int choices)
{
  unsigned long randomseed;
  randomseed = 7140252;
  randomseed = (randomseed * 1366l + 150889l) % 714025l;
  return randomseed / (714025l / choices + 1);
}


[nivuahc]

technically speaking, the challenge is impossible to meet.

[JohnK]

Depends on how we define "Random" ...but yes i agree with you nivuahc.