[gforth] / gforth / random.fs

gforth: gforth/random.fs

1 :	pazsan	1.1	\ generates random numbers 12jan94py
2 :
3 :			Variable seed
4 :
5 :			$10450405 Constant generator
6 :
7 :			: rnd ( -- n ) seed @ generator um* drop 1+ dup seed ! ;
8 :
9 :			: random ( n -- 0..n-1 ) rnd um* nip ;