Return to random.fs CVS log | Up to [gforth] / gforth |
* Added some files: * ecvt.c provides some functions for DJGPP under DOS * tt.fs is Tetris (from PFE) * checkans.fs allows to check, which words of the ANSI wordsets are present * the rest are other tools
\ generates random numbers 12jan94py Variable seed $10450405 Constant generator : rnd ( -- n ) seed @ generator um* drop 1+ dup seed ! ; : random ( n -- 0..n-1 ) rnd um* nip ;