File:  [gforth] / gforth / random.fs
Revision 1.1: download - view: text, annotated - select for diffs
Tue Nov 29 16:49:48 1994 UTC (23 years, 10 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
* 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 ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>