[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 ;

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help