random:misc — ordinary primitive
FORTH
RANDOM ( n1 -- n2 )();p4:"random";
RANDOM ( n1 -- n2 )(
)
returns random number with 0 <= n2 < n1)
: RANDOM ?DUP IF _random SWAP MOD ELSE _random THEN ;