aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/random.frt
blob: 4f2138cf3b6539b34535a0bf4385c8467768f9bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

\ simple random number generator.
\ based upon comus by Will Baden

variable rnd \ holds some entropy

\ get a random number
: random ( -- n )
    rnd @  31421 *  6927 +  dup rnd ! 
;

\ get a random number between 0 and u
: rand ( u -- 0..u-1)
  random um* nip ;
;