[gforth] / gforth / random.fs  

gforth: gforth/random.fs

File: [gforth] / gforth / random.fs (download)
Revision: 1.1, Tue Nov 29 16:49:48 1994 UTC (18 years, 5 months ago) by pazsan
Branch: MAIN 
* 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 ;
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help